Работоспособность скрипта не обсуждается) Но вот сам код... Как бы это сказать... Elekt, поищи темы с Perl Underground. Если переделаешь с нормальным стилем - самому приятней будет)