Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
    return scalar(grep ( lc($http_referer) eq lc($_) , @referers ));
}