use Net::SCP;

my $scp = Net::SCP->new("10.33.1.75", "xorl") or die("COULD NOT SCP");

$scp->scp("/export/home/xorl/websterproject/xferlist.txt", "/tmp/websterproject_xfer.txt") or die("TRANSFER FAILED");