sub find
{
     $a = "$path/input.log";
     $b = "$path/output.log";
     my $session = Net::Telnet::Netscreen->new(
     Host => $wan,
     Timeout => "90",
     Input_log => $a,
     Output_log => $b
     );
     $session->login('user', 'password');
     $command="commando";
     $session->cmd($command);
     $session->close;
}