Select Code to Download

           
#!/usr/bin/perl -w
use Net::Telnet;
...
my @lines=$telnet->cmd('ps -ef');
print @lines;
~

~#!/usr/bin/perl -w
...
 $output = $telnet->waitfor('/\$ $/i');
 print $output;