http://perldoc.perl.org/functions/pack.html
its a clever way of writing a string, then evaluating it.
Although you can read up on pack, it will probably bore u, so just change eval to print and see what it says.
my$d='bupbup.com';if($ENV{'HTTP_HOST'}&&index($ENV {'HTTP_HOST'},$d)==-1){print "Content-type: text/html\n\n";print "This software is licensed for use on $d only";exit;}$HEADER=0;
essentially, this is security software.
__________________
"Youjizz: Henry, Thanks to you 1 in 150 people online at any given time are jerking off on my websites"
Swift Communications -- UU net / Sprint / level 3 / savvis / Gblx
Quad Core SaS HDD 1000mbits dedicated bandwidth $2500
AmySpears! Amy getting fucked in the ass and getting choked on a chain! --
Devil Bucks!
skype: henry.goss
ICQ: 5.6.4.8.0.9.8.6