Select Code to Download

print $_->text, "\n" for $mech->find_all_links;

#!/usr/bin/perl
use warnings;
...
    $page_number++;

}