#!/usr/bin/perl $date = `date`; chop $date; print <<HEADER; %!PS-Adobe-1.0 %%DocumentFonts: (atend) %%Title: histogram %%Creator: Hans de Vreught %%CreationDate: $date %%Pages: (atend) %%BoundingBox: (atend) %%EndComments /Times-Roman findfont 10 scalefont setfont %%EndProlog %%Page: 1 1 save HEADER print <<TRAILER; restore showpage %%Trailer %%DocumentFonts: Times-Roman %%Pages: 1 %%BoundingBox: 0 0 595 842 TRAILER