# test oracle connection with DBI
use strict;
use warnings;
use DBI;
my $host = '192.168.0.1';
my $driver = 'Oracle';
my $database = 'ORCL';
my $username = 'USER';
my $password = 'PASS';
my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$database", $usernam
+e, $password, {RaiseError => 1, AutoCommit => 0});
# a simple telnet client with SMTP server
use strict;
use warnings;
use Net::Telnet ();
my $t = new Net::Telnet (Timeout => 10,
Port => 25);
$t->open("192.168.0.25");
my $foo = $t->getline;
print $foo;
$t->print("HELO darkstar");
$foo = $t->getline;
print $foo;
|