opendir(my $currentDirectory, my $pathToDirectory) || die "You sure that exists, dummy?";

##</code><code>##

  opendir(my $currentDirectory, $pathToDirectory) || die "You sure that exists, dummy?";
##</code><code>##

while ($boxEnd >= my $boxBegining, $boxBegining++) {

##</code><code>##

while ($boxEnd >= $boxBegining) {
    $boxBegining++;