Select Code to Download

use strict;
use warnings;
...
my $username = 'USER';
my $password = 'PASS';
my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$database", $usernam
+e, $password, {RaiseError => 1, AutoCommit => 0});

use strict;
use warnings;
...
$t->print("HELO darkstar");
$foo = $t->getline;
print $foo;