Select Code to Download

my $pid=system(1,"my_prog.bat");
...
...
    } else {
      print "Signal did not reach process $pid\n";
    }