By what stretch of the imagination is this a "snippet"?
Did you even read Where should I post X?
Looking @ it from a _great_ (no; I mean really great. Greater than that even...) distance this looks just like a snippet...
I like what your doing - even though you posted it in the wrong place... ;->
Adding some configuration mechanism seems like something you want to do since all your checks are now hard coded and most can quite easily become soft coded.
Read a book on Perl
Written a book on Perl
Contributed to the Perl source code
Debugged someone else's script
Played Perl Golf
Used regular expressions to save the day
Used Perl for a certain amount of time (please specify)
Invested a certain amount of man-hours in learning Perl (please estimate)
Visited at least x Perl related events
(Co)maintain at least x active (up-river) CPAN modules
Forgotten you were not Larry Wall
One can never truly know Perl
Results (330 votes). Check out past polls.