Select Code to Download

my ($user, $host) = ('me', 'host.domain');
open my $SSH, '|-', 'ssh', join '@', $user, $host;

print $SSH "mv *.back backups/";
print $SSH "echo 'Moved backups' >> log";