Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl  
use Net::Telnet; 
...
$telnet->login($HOST,$USER) or die print "can't access server"; 
@ls = $telnet->cmd('ls');
for(@ls){print;}
  2. or download this
    #!/usr/bin/perl  
use Net::Telnet;
...
$telnet->login($HOST,$USER) or die print "can't access server"; 
@ls = $telnet->cmd('ls');
for(@ls){print;}