Shell Programming and Scripting

#!/usr/bin/perl
#$host = $ARGV[0];

use Net::Telnet;
$telnet = new Net::Telnet ( Timeout=>10,
 		            Binmode=>0,
		            Input_Log=>'inputlog',		
		            Dump_Log=>'scriptlog',		
                            Errmode=>'die');
## Get the temp from the top RPC ##
$telnet->open ("10.2.4.2") or die("Cannot open");
##$telnet->waitfor('/Enter username>$/i');
##$telnet->print("user1");
##$telnet->waitfor('/Enter password>$/i');
##$telnet->print("pass123");
$telnet->print("1");
$telnet->waitfor('/True RMS current:/i');
@topamp = $telnet->waitfor('/Amps/i');
$telnet->print("logout");

## Get the temp from the bottom RPC ##
$telnet->open ("10.2.4.2") or die("Cannot open");
##$telnet->waitfor('/Enter username>$/i');
##$telnet->print("user1");
##$telnet->waitfor('/Enter password>$/i');
##$telnet->print("pass123");
$telnet->print("1");
$telnet->waitfor('/True RMS current:/i');
@botamp = $telnet->waitfor('/Amps/i');
$telnet->print("logout");
## Print the results ##
print @topamp;
print("\n");
print @botamp;
print("\n");

if (@topamp>= 10) { 
print "Critical! RPC Amp is @topamp";
}
print("\n");

...
if ($topamp[0] >= 10) {
...