Select Code to Download

unless (open (CMD, "$anycommand |")){
  die "Error in executing $anycommand: $!\n";
...
  my @result = <CMD>;
  close (CMD);
}