use warnings;
use Sys::Hostname;
use Net::SCP qw(scp);

$hostname="XXX";
$username="xxx";
$source="/dir/file";
$destination="C:\\dir2";

$scp = Net::SCP->new("$hostname");
$scp->login("$username") or die $scp->{errstr};
$scp->get("$source","$destination") or die $scp->{errstr};