Cross-posted here: http://perlguru.com/gforum.cgi?post=83607;sb=post_latest_reply;so=ASC;forum_view=forum_view_collapsed;;page=unread#unread

It is considered polite to inform people about such cross-posting to avoid duplicate work at various parts of the Internet.

Please also note that you should use <code> and </code> tags for your code to be readable.