package JunnkSites 0.03;

use parent qw(Exporter);

our @EXPORT = qw(KnownJunkSite);

sub KnownJunkSite {
    my ($a) = (@_);

    my %junksites = (
        "bollyinside.com",
        "www.bollyinside.com",
 ...
       "worldtrademarkreview.com",
        "www.worldtrademarkreview.com",
        );

    if(exists($junksites{$a})) {
        $a = 1;
    } else {
        $a = 0;
    }

    return($a);
}