# http://www.awilcox.com/geek_stuff/perl/proxy.html
use DBI;
use Data::Dumper;

# declare variables
my ($dbh, $sth, $row);

$dbh= DBI->connect("DBI:Proxy:hostname=192.168.200.101;port=3522;debug=1;dsn=dbi:ODBC:dbtest",'test','test') or die $DBI::errstr;
$sth = $dbh->prepare("select f1,f2,f3 from table1 where f1=1");
$sth->execute;