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;