use Net::SCP qw(iscp);

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