for my $item (@task) {
  my $msg = '[  ]  ' . $item;
  drawline( $page, $linepos );
  $txt->translate( 70, $linepos+10 );
  $txt->text($msg);
  $linepos -= $vspace;
  if ($linepos < 0){
    $page = $pdf->page;
    $txt  = $page->text;
    $txt->font( $font, 20 );
    $linepos = 650;
  }
}