В принципе работает вот так без правки исходов
D:\>perl script.pl 111
DONE!
Вместо 111 любой набор в кач. параметров =)