use strict;
use Net::Telnet;

my $timeout = 20;
my $port = 23;
my $deviceid = $ARGV[0];
my $host = $ARGV[1];
my $user = $ARGV[2];
my $pwd = $ARGV[3];
my $prompt = '/.+[>#]$/';

my $conn = new Net::Telnet(Timeout => $timeout,Port => $port,Prompt=>$prompt);

$conn->open($host);
$conn->login($user,$pwd);

my @output = $conn->cmd("uname -a");
print @output;