So what's on line 5? (You've only shown us 4 lines.)

What does this do?

use Net::SCP qw(iscp);

iscp("metrica\@155.226.206.195:/apps/inst1/metrica/sample.txt", ".");
[download]

(update: escaped @)