Perl script/module?

#!/usr/bin/perl

use strict;
use warnings;

use PDF::Create;
# initialize PDF
my $pdf = PDF::Create->new('filename'     => 'page_a_day_cal.pdf',
                                        'Author'       => 'Bill James',
                                        'Title'        => 'Page a day calendar',
                                        'CreationDate' => [ localtime ], );
                                        
# add an A5 sized page
my $a5 = $pdf->new_page('MediaBox' => $pdf->get_page_size('A5'));

# Prepare a font
my $f1 = $pdf->font('BaseFont' => 'Helvetica');

#Month names array
my @mon=qw (Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);

my $time =  1388576834 ; #epoch time on noon Jan 1st this year

for (0..365){
    # Add a page which inherits its attributes from $a5
    my $page = $a5->new_page;
    my @date=localtime($time);
    my $date_string= $date[3]."\n$mon[$date[4]]\n". $date[5] + 1900;
                       #font #size #x #y #text #alignment 'c' for centred
    $page->stringc($f1, 40, 306, 426, $date_string, 'c');
    $time += (24 * 60 * 60) # increment the day
}
$pdf->close();