Все работает отлично!
или мне снять видео как работает скрипт ? =\
запускайте в локалке с установленным Active Perl
если венда то
c:\perl.exe cheker.pl (создав предварительно 3 файла good.txt bad.txt accounts.txt)