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