Select Code to Download

use strict;
use warnings;
...
for my $v ('bollyinside.com', 'fred', 'www.worldtrademarkreview.com') 
+{
    print "$v: ", KnownJunkSite($v) ? "found\n" : "not found\n";
}

bollyinside.com: found
fred: not found
www.worldtrademarkreview.com: found