system("rcp", $file, "$username\@$hostname:$destfile") == 0
  or die "Failed to rcp: $?"