use Net::SCP qw(scp); $scp = Net::SCP->new( "155.226.206.195", "metrica"); $scp->get("/apps/inst1/metrica/sample.txt") or die $scp->{errstr};