Select Code to Download

#!/usr/bin/perl
use warnings;
...
waitpid($pid, 1);
# It is important to waitpid on your child process,  
# otherwise zombies could be created.

#!/usr/bin/perl
use warnings;
...
   my $cmd= $entry->get();
   print IN "$cmd\n";
}