use strict;
use warnings;

##</code><code>##

sub read_dir {
    my $dir = shift;

    if ( opendir( DIR, $dir ) ) {

##</code><code>##

if ( whatever ) {
    # ...
}  else {
    # ...
}

##</code><code>##

        my @tmp = readdir(DIR);
        my @files = map { "$dir/$_" } grep { !/^\.{1,2}$/ && -f "$dir/$_" } @tmp;
        my @dirs  = map { "$dir/$_" } grep { !/^\.{1,2}$/ && -d "$dir/$_" } @tmp;

##</code><code>##

        my @tmp = grep !/^\.{1,2}$/, readdir(DIR);

##</code><code>##

my (@files,@dirs);
for (readdir DIR) {
    next if $_ eq '.' or $_ eq '..';
    $_="$dir/$_";
    push @files, $_ if -f;
    push @dirs, $_ if -d _;
}

##</code><code>##

        closedir( DIR );

##</code><code>##

sub glob_files {
    my ($dir, $recurse) = @_;

##</code><code>##

        if (@$files) {    
            push @files, @$files;
        }    

##</code><code>##

        push @files, @$files;

##</code><code>##

        recursion: {
            last unless $recurse;

##</code><code>##

            while (@$dirs) {
                my $d = shift (@$dirs);

##</code><code>##

            for (@$dirs) {

##</code><code>##

                my @f = glob_files("$d", 1);

##</code><code>##

    }else{
        return;
    }
}

##</code><code>##

    foreach $file (@files) {
        open FH, $file or
            die "Error opening [$file]: $!\n";

##</code><code>##

        next unless ( -s $file > 9 );

##</code><code>##

        read(FH, $data, 10) or
            die "Error reading from [$file]: $!\n";

##</code><code>##

        if ( $data =~ /^BM/ ) {
            $type = 'BMP';
        }elsif ( $data =~ /^GIF8[79]a/) {
            $type = 'GIF';
        }elsif ( $data =~ /^\xFF\xD8/ ) {
            $type = 'JPG';
        }else {
            $type = undef;
        }

##</code><code>##

    return @images if ( scalar (@images) );
    return;

##</code><code>##

    return @images;

##</code><code>##

my (@files, @images);
my $recurse = 1;

##</code><code>##

@files = glob_files($dir, $recurse);
@images = find_images(@files);