Select Code to Download

open(FH, "dir|")
  or die "Couldn't run dir: $!\n";

#!/usr/bin/perl

...
  # Child
  exec("/bin/ls");
}