open(PRINTER,">LPT1:") or die "Can't write to LPT1: $!\n";
print PRINTER " HOLY SCHNIKES, I'M A PRINTIN'\!\n";
print PRINTER "Content-Length: $gifsize\n";
print PRINTER "Content-type: image/gif\n\n";
open(GIFIMAGE, "$gif");
while (<GIFIMAGE>){print PRINTER; };
close(GIFIMAGE);
close(PRINTER);