Select Code to Download

for my $link (sort keys %seen) { 
    print "Getting $link.....";
...
        print "Bugger\n";
    } 
}