Help for this page

Select Code to Download

Select or download this

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

Select or download this

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