LJ Archive

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
LJ Archive