use warnings;
use strict;
use DBI;
DBI->trace(3);
my $dbh = DBI->connect(
   "dbi:Proxy:hostname=isfe;port=3333;dsn=dbi:Oracle:xxxx",
   'xxxx',
   'xxxx',
   {RaiseError => 1, PrintError => 0, AutoCommit => 0}
);
my $sql = 'select id, str from sfile';
my $csr = $dbh->prepare($sql);
$csr->execute();
while (my ($id, $str) = $csr->fetchrow_array) {
   print "$id = $str\n";
}
$dbh->disconnect();