$ cat test.ps %!PS /Courier findfont 20 scalefont setfont 72 500 moveto (Hello world!) show showpage #### #!/opt/csw/bin/perl -w use strict; use warnings; my $prolog = <