Easy copy protection for perl.

easy_copy_protection.pl

#!/usr/bin/perl

use Digest::SHA1 qw(sha1 sha1_hex sha1_base64);
my $document_root = $ENV{'DOCUMENT_ROOT'};
my $addr = $ENV{'SERVER_ADDR'};
my $v = sha1_hex($document_root,$addr);
if ($v ne '01f9ee68866f973e95c6c379afa9ab6e4a7a4395') {
    print "Content-type: text/plain\n\n";
    print "hehehe\n";
    exit;
}