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");
$scp->get("$source","$destination");