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};

##</code><code>##

C:\Antony\Perl>perl l.pl
Died at l.pl line 5.