use Net::OpenSSH;

my $ssh = Net::OpenSSH->new('bar', user => 'foo', password => $password);
$ssh->scp_put('test.txt', '/tmp/test.txt');
$ssh->error and die "SCP transfer failed: " . $ssh->error;