Sorry, bu even if you would include some checkings, anyone who knows something about Perl alter the script very fast and run it on another domain. That's the problem with programming-languages like Perl (Source is visible :(