#!/usr/bin/perl

$t="%!PS

newpath
270 360 moveto
0 72 rlineto
72 0 rlineto
0 -72 rlineto
closepath
.5 setgray
fill

%%  some text

newpath
270 450 moveto
270 500 lineto
1 0.2 0.2 setrgbcolor
stroke

%%    select/scale font (Courier, Times-Roman, Helvetica) standard PS fonts
/Times-Roman findfont 30  scalefont setfont
270 600 moveto
(this is text) show


%%  nothing will show without showpage.  Finishes the page
showpage

";

open(FF,">tmp.ps"); print FF $t; close(FF);

system("ps2pdf tmp.ps");
system("open tmp.pdf");