Select Code to Download

.......
open(OUT,">file_out) or warn "$!\n";
...
($error,$answer)=('','');
}

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