use Net::Telnet();
use strict;

my ($host, $port, $socket, $line, $filename);
$host = $ARGV[0];
$port = $ARGV[1];
$filename = $ARGV[2];
$socket = new Net::Telnet (Telnetmode => 0,Timeout => 604800);
$socket->open(Host => $host,Port => $port);
for(;;){
        $line = $socket->getline;
        open(LOGFILE, ">>$filename");
        print LOGFILE $line;
        close(LOGFILE);
}
exit 0;