#!/usr/bin/perl
for ($i=1;$i<25;$i++) {
if (length $i != 2) {$i='0'.$i;}
print "http://www.dovod.org/keeper/film/uroki.part".$i.".rar\n";
}