Select Code to Download

unless ($ENV{HTTP_HOST} ~= m/licensed_site.com/) {die "Code thief!"}

#!/usr/bin/perl

...
close TIDY;