use strict;
use warnings;

sub read_dir {
    my $dir = shift;

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

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

    if ($dir) {
        my ($files, $dirs) = read_dir($dir) or return;
        if (@$files) {    
            push @files, @$files;
        }    
        recursion: {
            last unless $recurse;
            while (@$dirs) {
                my $d = shift (@$dirs);
                my @f = glob_files("$d", 1);
                push @files, @f;
            }
        }

        return @files;
    }else{
        return;
    }
}

sub find_images {
    my @files = @_;
    my $file;
    my @images;

    foreach $file (@files) {
        open FH, $file or
            die "Error opening [$file]: $!\n";
        my $data;
        my $type;
        
        next unless ( -s $file > 9 );
        
        read(FH, $data, 10) or
            die "Error reading from [$file]: $!\n";
        
        if ( $data =~ /^BM/ ) {
            $type = 'BMP';
        }elsif ( $data =~ /^GIF8[79]a/) {
            $type = 'GIF';
        }elsif ( $data =~ /^\xFF\xD8/ ) {
            $type = 'JPG';
        }else {
            $type = undef;
        }

        push @images, ( [ $file, $type ] ) if ($type);

        close FH or
            die "Error closing file [$file]: $!\n";
    }
    
    return @images if ( scalar (@images) );
    return;
}


my (@files, @images);
my $recurse = 1;
my $verbose = 1;
my $dir     = '.';

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


if (@images){
    foreach my $a (@images) {
        if ($verbose){
            print "Found [",$a->[0],"] which appears to be an image of
+ type ",$a->[1],".\n";
        }else{
            print $a->[0],"\n";
        }
    }
}    

if ($verbose) {
    print "\n\tFound ", scalar(@files), " files.";
    print "\n\tFound ", scalar(@images), " images.\n";
    
}
[download]