# 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;

##</code><code>##

$VAR1 = {
          'f1' => '1',
          'f2' => 'A123',
          'f3' => 'Vista'
        };

##</code><code>##

$sth = $dbh->prepare("desc table1");
$sth->execute;

##</code><code>##

DBD::Proxy::st execute failed: Server returned error: Failed to execute method CallMethod: DBD::ODBC::st execute failed: [Oracle][ODBC][Ora]ORA-00900: invalid SQL statement
 (SQL-42000)(DBD: st_execute/SQLExecute err=-1) at C:/Perl/site/lib/DBI/ProxyServer.pm line 344.