Listing 1. Perl Script Template
#!/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
Copyright © 1994 - 2018 Linux Journal. All rights reserved.