CGI Picthing

#!/usr/local/bin/perl

#######################################
# All rights reserved to Killah's CGI Scripts Inc #
#######################################
# This script is easy for people who have a lot #
# of thumbs on his/her homepage :) #
#######################################
# homepage : cgi-shit.hypermart.net #
# email : cool@telekabel.nl #
#######################################
# Call the script like this : #
# www.server.com/cgi-bin/pic.cgi?picname.jpg #
# then it will grab picname.jpg out of the dir #
# that you've specified below . izi huh?! :) #
#######################################

# This is the URL where you hold your pics
$picurl = "http://cgi-shit.hypermart.net/images/";

# This is the URL of your homepage
$homepage = "http://cgi-shit.hypermart.net/";

#### DO NOT EDIT BELOW THIS LINE! ####

$picname = $ENV{'QUERY_STRING'};

print "Content-type: text/html", "\n\n";
print "<HTML>\n<HEAD>\n<TITLE>Full picture</TITLE>\n</HEAD>\n";
print "<BODY BGCOLOR=\"black\">\n";
print "<CENTER><BR>\n";
print "<IMG SRC=\"$picurl$picname\"><BR><BR>\n";
print "<A HREF=\"$homepage\">Back Home</A>\n";
print "</BODY>\n</HTML>";