#! /usr/bin/perl
#---------------------------------------------------------------------
# Copyright 2012 Christopher J. Madsen
#
# Create a PDF using PostScript::File & PostScript::Convert
#---------------------------------------------------------------------

use strict;
use warnings;

use PostScript::File 2.20;
use PostScript::Convert;

my $ps = PostScript::File->new(
  paper      => 'Letter',
  reencode   => 'cp1252',
  need_fonts => [qw(Helvetica)],
  landscape  => 0,
);

$ps->use_functions(qw(drawBox));

my ($left, $bottom, $right, $top) = $ps->get_bounding_box;

$_ += 4 for ($left, $bottom);
$_ -= 4 for ($right, $top);

$ps->add_to_page( <<"END_PAGE" );
  /Helvetica findfont
  12 scalefont
  setfont
  72 72 moveto
  (Hello, World!) show
  4 setlinewidth
  $left $top $right $bottom drawBox
END_PAGE

# $ps->output('hello_world.ps'); exit;
# $PostScript::Convert::Debug = 1;

psconvert($ps, 'hello_world.pdf');