Help for this page

Select Code to Download


  1. or download this
    $telnet = new Net::Telnet (input_log => \*STDOUT , Timeout =>1000);
$telnet ->open("$host");
$telnet->login("$user","$password");
$telnet->cmd("snoop -d bge0");
  2. or download this
    my $ssh=Net::SSH::Perl->new("$host");
   $ssh->login("$user","$password");
($stdout,$stderr)=$ssh->cmd("snoop -d bge0");
print $stdout;