Hi,
Looks like you inverted the options on "$scpe->scp(..)". Try the following:

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');
[download]

If this doesn't work. Check if "testfile" exists. Or specify the full path of it (like /home/xx/testfile).
Also check if "servera" is being resolved correctly (or use its IP Address instead).

If none of this work, you should get an error message from this module explaining (enable debug)...

-DCB