# ls mode if ($q->param('ls')) { print header(); my $sub = $q->param('ls'); while (defined ($file = readdir DIR)) { if ($file =~ s/\.(jpg|jpeg|gif|png)$// and $file !~ /^\./) { push @pictures, $file if ($file =~ m/$sub/i); } } for my $file (sort @pictures) { print "$file
"; } exit; }