Select Code to Download

# No good on Windows
sub text_to_shell_lit {
...
   $s =~ s/'/'\\''/g;
   return "'$s'";
}

my $cmd =
   join ' ',
...
   scp => '-t', @args;

system(ssh => $cmd);