Select Code to Download

    $pl = int $pl + 1 if $pl != int $pl;

  sub ceildiv {
    my($num, $div) = @_;
    return int(($num + $div - 1) / $div);
  }

  ++$c;
  $pl = int((@files + $c - 1)/$c);