Угу, советую ещё пару примеров japh с перлмонков скопипастить, чтобы показать крутость...

Кстати, в твоем коде часто наблюдаю конструкции типа
die ... unless ....
Как же такой православный кодер как ты может их использовать, если
в "библии" пишут:
* Just because you *CAN* do something a particular way doesn't mean
that you *SHOULD* do it that way. Perl is designed to give you
several ways to do anything, so consider picking the most readable
one. For instance

open(FOO,$foo) || die "Can't open $foo: $!";

is better than

die "Can't open $foo: $!" unless open(FOO,$foo);