# No good on Windows
sub text_to_shell_lit {
   my ($s) = @_;
   $s =~ s/'/'\\''/g;
   return "'$s'";
}

##</code><code>##

my $cmd =
   join ' ',
   map text_to_shell_lit($_),
   scp => '-t', @args;

system(ssh => $cmd);