Select Code to Download

#!/usr/bin/perl

...
  send(SOCK,$text,0);
  return;
}

sub downhex {
 # Coded by: Kage (Kage@DBXML.com) http://ss.dbmxl.com
...
 }
 return uc($hexvalue);
}

 $useflock = 1;
 open(IMG, "<image.gif") || die($!);
 binmode(IMG);
...
 close(IMG);
 print "Content-type: image/gif\n\n";
 print $image;