use strict;
use warnings;
use Net::SCP;

my $file = 'xyz.txt';
my $destdir = '/dir';

my $host = 'xxx.xxx.xxx.xx';
my $user = 'user';
my $pass = 'pass';

my $scpe = Net::SCP::Expect->new(host => $host,
                                 user => $user,
                                 password => $pass)
   || die "Can not make connection to: $host\n";

$scpe->scp($file,$destdir) || die "can't scp: $!\n";