This section is now closed for posting code. Please use Cool Uses For Perl instead.