Select Code to Download

opendir(DIRHANDLE, $self->param('photos_dir')) or die "couldn't open m
+ain directory: $!";
$dir_row_count = 0;
...
    }
    $dir_row_count++;
}

$VAR1 = [
          {
...
                         ]
          }
        ];