open (ImageFile,">$ImageName") or dienice ("Could not open $ImageName for writing.");
binmode (ImageFile);

##</code><code>##

print ImageFile chr($code);
close (ImageFile);
exit;

##</code><code>##

print ("Content-type: image/bitmap\n");
print chr($code);