#!/usr/bin/perl

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

my $file = '/path/to/xyz.txt';
my $destdir = '/tmp';

my $host = '127.0.0.1';
my $user = 'user';

my $scpe = Net::SCP::Expect->new( 
           host => $host,
           user => $user,
           password => 'password',
           auto_yes => 1,
           verbose  => 1,
           debug    => 1,
           timeout_auto => 2,
);
die "can't scp: $!\n" unless $scpe->scp($file, $destdir);