Select Code to Download

#!/usr/bin/perl -w

...
}
close(OUT)
    or die "Couldn't close cat stdout: $!\n";

#!/usr/bin/perl -w

...
wait; wait;

exit(0);