Select Code to Download

# hex up your image
open IMG, "$ARGV[0]"
...
while ($txt = substr($hex,0,32,'')) {
    print "'$txt'\n";
}

# print your hexed stuff out
print "Content-type: image/gif\n\n";
...

  return(pack("H*",$image));
}