referer throwing Internal Server Error

[David Gilden]

Greetings from Cow Tow!

Here is my little script and it throwing a Internal Server Error....

#!/usr/bin/perl 

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use POSIX 'strftime';
use strict;

my $referer = referer; 

    if ($referer !~ m|^https?://www\.coraconnection\.com|i) {
    print "Your not authorized: Bad Referer: $referer \n";
    } else {
    print "all cool: $referer \n";
}


I can not figure out what is wrong here....
and how secure is this, can it be spoofed easily??
Thanks.


Dave Gilden
(kora musician / audiophile / webmaster @ www.coraconnection.com  / Ft. Worth, 
TX, USA)

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>