- or download this
open (ImageFile,">$ImageName") or dienice ("Could not open $ImageName
+for writing.");
binmode (ImageFile);
- or download this
print ImageFile chr($code);
close (ImageFile);
exit;
- or download this
print ("Content-type: image/bitmap\n");
print chr($code);