in reply to Printout Program creation

see Reaped: challenge on perl Reaped: perl challenge 2