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

##</code><code>##

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

##</code><code>##

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