For you, comrade, it's fair use. Perl monks should feel free to use this 
code to answer posted questions.

Frank Willison
Editor-in-Chief
O'Reilly & Associates