#!/usr/bin/perl -w
$arg=$ARGV[0];
$arg1=$ARGV[1];
$prompt = "bash-2.03\#";
#print "$prompt\n";
use Net::Telnet;
$telnet = new Net::Telnet(Timeout=>10,prompt=>"/$prompt/i",Errmode=>'die');
$telnet->open("xxx.xx.xxx.xxx");
$telnet->waitfor('/login: $/i');
$telnet->print('xxxx');
$telnet->waitfor('/password: $/i');
$telnet->print('xxxxxx');
$telnet->waitfor("/$prompt/i");
@arr=$telnet->cmd('cat aa.txt');
foreach(@arr)
{
  @arr1=split/:/,$_;
  if($arr1[0]=~/$arg/)
    {
      print"user exist\n";
    }
       else {
               @arr=push @arr,$arg1;
               print @arr;
            }
}
     print @arr;