for my $link (sort keys %seen) { 
    print "Getting $link.....";
    my $html = get($link);
    if ( $html =~ m/whatever/ ) {
        print "Wohoo!\n";
    }
    else {
        print "Bugger\n";
    } 
}