Shell Programming and Scripting

#!/usr/bin/perl -w 
  
use strict; 
use warnings; 
use Net::Telnet; 
  
my $ip = $ARGV[0]; 
my $pass = "mgcusr"; 
my $pass2 = "S3attl3"; 
my $t=new Net::Telnet(Errmode=>'return',Input_Log => "/tmp/input.log",Timeout=>30); 
  
  
$t->open($ip); 
 if($t->errmsg) { my $err=$t->errmsg; return $err; } 
 my ($prompt) = $t->waitfor('/login: $/'); 
    if($t->errmsg) { my $err=$t->errmsg; return $err; } 
    $t->print("$pass"); 
    $t->waitfor('/Password:$)/'); 
    $t->print("$pass2"); 
    $t->waitfor('/%$/'); 
    $t->cmd('mml'); 
    $t->waitfor('/>$/'); 
    my @out=$t->cmd(String=>'rtrv-ne',Prompt=>'/>$/'); 
    my @matches = grep {/[A-Z]BY/} @out;  
    my $line = $matches[0] if @matches or die "can't find parameters specified"; 
    $t->cmd("quit"); 
    $t->waitfor('/%$/'); 
    $t->cmd("exit"); 
    print "$line\n"