Select Code to Download

  my $rcp_command = "rcp $file $username@$hostname:$destfile";
  #  perl will be interpreting this     ^
  system( $rcp_command );

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