Create parent.pl

http://www.nntp.perl.org/group/perl.poe/2009/09/msg4599.html