my $page = $pdf->page;
my $text = $page->text;

my $font_size = 10;
my $font      = $pdf->corefont( "Times-Roman" );
my $bold      = $pdf->corefont( "Times-Bold" );
my $italic    = $pdf->corefont( "Times-Italic" );

$text->font( $bold, $font_size );

# ...
sub text {
    my $text      = $_[0];
    my $x         = $_[1];
    my $y         = $_[2];
    my $alignment = $_[3];
    my $string    = $_[4];

    $text->translate( $x, $y );

    if ( $alignment eq "right" ) {
        $text->text_right( $string );
    } elsif ( $alignment eq "center" ) {
        $text->text_center( $string );
    } elsif ( $alignment eq "justified" ) {
        $text->text_justified( $string );
    } else {
        $text->text( $string );
    }

    return $text->advancewidth( $string );
} # End text subroutine