#!/usr/bin/perl
use v5.14;
use utf8;
use PDF::API2;
use Time::Piece;
use Time::Seconds;

my $t = Time::Piece->localtime + ONE_DAY;
my $today = $t->strftime("%a, %b %d, %Y");
print "$today\n";
my $header = "List for $today";

my $pdf = PDF::API2->new(
   width  => 595,    # A4 dimensions in point
   height => 842,    # 1 point = 1/72 inch
);

my $page = $pdf->page;
my $txt  = $page->text;
my $font = $pdf->corefont('Times-Roman');

#header
my $linepos = 650;
$txt->font( $font, 32 );
$txt->translate( 100, $linepos );
$txt->text( $header );
$linepos -= 50;

#add randomtext
my $quote = "A quote with a lot of words that
 spreads over more than one line
 and possibly even extends to three lines filling the
 box size of 400 wide 100 deep.";

print "$quote\n";
$txt->font( $font, 20 );
$txt->lead(20); # line spacing
$txt->translate( 100, $linepos );
$txt->paragraph($quote, 400, 100, -align => "left" );
my $overflow_text = $txt->textpos();
$linepos -= 100;

my @task = (
   'wake no later than 8',
   'stretch/take meds',
   'make coffee/eat cereal',
   'eat salad', 'bring food',,
);

$txt->font( $font, 20 );

my $vspace = 70;
for my $i ( 0 .. $#task ) {
  my $msg = '[  ]  ' . $task[$i];
  drawline( $page, $linepos );
  $txt->translate( 70, $linepos+10 );
  $txt->text($msg);
  $linepos -= $vspace
}

my $new_name = $t->strftime("%b_%d_%Y.pdf");
say "new_name is $new_name";
$pdf->saveas($new_name);

sub drawline {
  my ( $page, $y ) = @_;
  my $x1 = 50;
  my $x2 = 550;
  my $line = $page->gfx;
  $line->linewidth(3);
  $line->move( $x1, $y );
  $line->line( $x2, $y );
  $line->stroke;
}
[download]