use Net::SCP;
my $hostname 	= "myserver";
my $username 	= "myuser";
my $scp;
$scp = Net::SCP->new({ "host"=>$hostname, "user"=>$username });
$scp->get("/my/remote/path/myfile.file", "mylocalpath/") or die $scp->{errstr};