can i get the code?
here is the perl part.
CODE#! perl
##############################################################################
# Random Sig Generator #
# Copyright 2007 ZoNE97 #
# Created 03/07/06 Last Modified 02/23/07 #
##############################################################################
# COPYRIGHT NOTICE #
# #
# Obtain permission before redistributing this software over the Internet or #
# in any other medium. In all cases copyright and header must remain intact.#
##############################################################################
# Define Variables
$prog = "Random Sig Generator";
$ver = "2.0";
$cgi = "$ENV{'SCRIPT_NAME'}";
$url = "$ENV{'SERVER_URL'}";
chop($cgi) if ($cgi =~ /\n$/);
($blank,$path,$code) = split(/\//,$cgi);
$data_dir = ".\\data";
$sigs_dir = ".\\images";
$image = "mysig";
$game[0] = "_01.png";
$game[1] = "_02.png";
$game[2] = "_03.png";
$game[3] = "_04.png";
$game[4] = "_05.png";
$lower=1000000;
$upper=2000000;
$random = int(rand( $upper-$lower+1 ) ) + $lower;
$start=0;
$end Â=4;
$ransig = int(rand( $end-$start+1 ) ) + $start;
##############################################################################
# Get the input from forms
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
if ($ENV{'QUERY_STRING'} ne '') {
 $input = "$ENV{'QUERY_STRING'}";
 chop($input) if ($input =~ /\n$/);
}
##############################################################################
# Where to go...
print "location: $url$path\/images\/$image$game[$ransig]?$random\n\n\n";