# file: test-script.pl
# call me like this: perl test-script.pl user password

use strict;
use warnings;
use DBI;
use DBD::mysql;
use Crypt::IDEA;

my $key = 'lugkm3wupsvh3n1ge9r8c7q5ccx8q3qa';
my $userkey = 'mqd3tcerbd456g4ddenaqhebago3x34sz';
my $user = shift || die "Usage: $0 user password";
my $pass = shift || die "Usage: $0 user password";
my $config = {
        dsn_at_proxy => "dbi:mysql:myldap",
        proxy => "hostname=myhost.fdu.edu;port=3000;cipher=IDEA;key=$key;usercipher=IDEA;userkey=$userkey"
};
my $dsn = sprintf "dbi:Proxy:%s;dsn=%s",
        $config->{proxy},
        $config->{dsn_at_proxy};

my $dbh = DBI->connect( $dsn, $user, $pass )
        || die "connect did not work: $DBI::errstr";

        my $sth = $dbh->prepare('select column1,column2,column3 from TESTTABLE');
        $sth->execute
        or die "SQL Error: $DBI::errstr\n";
        while (my @row = $sth->fetchrow_array) {
            print "@row\n";
        } 
$dbh->disconnect;
exit;