Ho dei problemi con HTTP_REFERER...


codice:
use vars qw ($REFERER);

$REFERER = 'http://theartofweb.netfirms.com/';

sub check_url {

    my $check_referer = 0;

    if ( $ENV{'HTTP_REFERER'} ) 
    {

      if ($ENV{'HTTP_REFERER'} =~ m/$REFERER/i) { $check_referer = 1; }
      
    } else {
    
        $check_referer = 1;
    }

    if ($check_referer != 1) { die "ma che cazzo fai?? ... 
non stai digitando dal sito dove risiede bbsmart ... 
$check_referer ** -- $ENV{'HTTP_REFERER'} -- contro: $REFERER\n" }
}
il valore di HTTP_REFERER è >>http://theartofweb.netfirms.com/cgi-...lay&FORUM_ID=2

il valore di $REFERER è >> http://theartofweb.netfirms.com/

ma i due non vengono match-ati dall'espressione regolare...perchè?