Как упорядочить вывод из Perl::Mechanize в сжатом порядке (с переменными или именами)

Я использую Linux OpenSuse 11.4. Я пытаюсь запустить эту маленькую программу в Linux.

#!/usr/bin/perl

    use WWW::Mechanize::Firefox;
    my $mech = WWW::Mechanize::Firefox->new();

    open(INPUT, "urls.txt") or die "Can't open file: $!";

    while (<INPUT>) {
      chomp;
      $mech->get($_);
      my $png = $mech->content_as_png();
    }
    close(INPUT);
    exit; 

У меня есть список URL-адресов - более 1000 URL-адресов, поэтому могут возникнуть проблемы, если я получу результаты несортированным образом.

У меня есть список из 1000 URL-адресов, по одному в каждой строке, сохраненных в файле. Я хочу, чтобы приведенный выше сценарий открывал файл, читал строку, а затем извлекал веб-сайт! URL-адреса хранятся примерно так:

    Filename: urls.txt
    ------------------
    www.google.com
    www.cnn.com
    www.msnbc.com
    news.bbc.co.uk
    www.bing.com
    www.yahoo.com 

Как мне написать скрипт, чтобы картинки-миниатюры сохранялись с определенными именами - например, с доменными именами. Иначе в результате получится полная каша. Мне нужно идентифицировать эскизы на основе URL-адресов. Это возможно?