#!/usr/local/bin/perl for ($i=130; $i<43000; $i++) { `c:\\wget\\wget.exe http://waplog.net/ru/xhtml/stat/$i -O /home/<имя_юзера>/waplog/waplog$i.txt`; }