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

system(ssh => $cmd);