Select Code to Download

#!/usr/bin/perl -w

...
}
print "exiting...\n";
exit 0;

le99007@robin:~/src/perl> ./pipe.pl 
parent 7146 forked 7147
...
7146 removing IO::Pipe::End
7146 0 handles left to read
exiting...