Select Code to Download

#!/usr/bin/perl -w
use warnings;
...
$count++;
print "$count\n";
}

#!/usr/bin/perl -w
use warnings;
...
print "$url\n";
push @urls, $new_url;  # or @new_urls
}