use Net::Telnet;

my $pop = Net::Telnet->new(Telnetmode => 1, Input_log => $file, dump_log => $file1);