for(my $i = 1; ; ++$i) { system ("wget \"http://www.viralchart.ru/Images/Images/manul/$i.jpg\""); die if ($?>8); }