use strict;
use warnings;
use IO::Pty;
use Net::SCP::Expect;
my $scpe = Net::SCP::Expect->new;
$scpe->host("servera");
$scpe->login("swaroop","xxxxx");
$scpe->auto_yes("1");
$scpe->scp('testfile','servera:/tmp/testfile');