my $scp = Net::SCP->new( {"host" => 'server1.ca:3479', "user" => 'user1'} );
$scp->scp($source, $destination);