Thanks so much for the cleaner treatment. I didn't understand that the numbers in this context are supposed to get smaller as you go down the page. And it does not give you another page automatically: you have to ask for it, but this is where I have to stop for now.

Output:

C:\cygwin64\home\Fred\pages2\list>perl list11.pl
Wed, May 25, 2016
28. Don't be afraid to give up the good to go for the great.
Don't be afraid to give up the good to go for the great.
tasks for second page are fold sail
new_name is May_25_2016.pdf
[download]

#!/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 = get_quote();
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',
      'make coconut phone',
   'check provisions',
   'tie knots', 'fold sail',,
);

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

my $vspace = 70;
while ( (@task)&&($linepos>0) ) {
  my $item = shift @task;
  my $msg = '[  ]  ' . $item;
  drawline( $page, $linepos );
  $txt->translate( 70, $linepos+10 );
  $txt->text($msg);
  $linepos -= $vspace
}

say "tasks for second page are @task";

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;
}

sub get_quote {
   use HTML::TreeBuilder 5 -weak;

   my $site = 'http://motivationgrid.com/50-inspirational-quotes-to-li
+ve-by/';
   my $tree = HTML::TreeBuilder->new_from_url($site);
   my @quotes;

   for ( $tree->look_down( _tag => 'p' ) ) {
      if ( ( my $t = $_->as_text ) =~ m{ ^ \d+ \. \s+ }x ) {
         $t =~ s{ \x{2019}  }{'}gx;
         $t =~ s{ \xA0      }{ }gx;
         $t =~ s{ \x{2013} }{--}gx;
         push @quotes, $t;
      }
   }

   my $randomelement = $quotes[ rand @quotes ];
   print "$randomelement\n";
   $randomelement =~ s/^\d+\.\s+//;
   return $randomelement;
}
[download]

How would a person represent an appointment in such a scheme?

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.