my $i = 0;
for my $url (@urls) {
    my $outfile = sprintf "screenshot-%02d.png", ++$i;
    system 'firefox', $url;
    system "xwd | xwdtopnm | pnmtopng > $outfile";
}