$t = new Net::Telnet (Timeout => undef);
$username="sqa";
$password="Tmie";
$t->open("xxxx.xx.com");
$t->login($username, $password);
$req_apks = "re2.txt";
    open(F2, "<", "$req_apks") or die "Cannot open APK Filelist file:$!";
my $req;

while ($req = <F2>)
        {
        chomp;
        @b= $t->cmd("./adb install $req");
        print @b;
        sleep(3);
        print "\n";
        }