#!/usr/bin/perl
use Net::SCP::Expect;

my $user = 'user1';
my $pass = 'pass1';
my $host = 'host1';

my $src_path = "/home/sid.txt";
my $dst_path   = "/home/datprd/";

my $s = Net::SCP::Expect->new;
$s->login($user, $pass);
eval{ $s->scp("$host:$src_path",$dst_path);};
print $@;