Select Code to Download

opendir my $dir, "$photodir/$category" or die "didn't work: $!";
while( my $ent = readdir $dir ) {
...
}
closedir $dir;
}