Help for this page
$scp = Net::SCP->new( "server1.ca:3479", "user1");
ssh: connect to host server1.ca port 22: Connection refused