$scp = Net::SCP->new( "server1.ca:3479", "user1");

##</code><code>##

ssh: connect to host server1.ca port 22: Connection refused