http://qs321.pair.com?node_id=509943

Public Scratchpad

Download, Select Code To D/L

---

# 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});
[download]

# 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;
[download]