Select Code to Download

Select or download this
```
use strict;
use warnings;
```

sub read_dir {
    my $dir = shift;

    if ( opendir( DIR, $dir ) ) {

Select or download this

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

Select or download this

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

Select or download this

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

Select or download this

my (@files,@dirs);
for (readdir DIR) {
...
    push @files, $_ if -f;
    push @dirs, $_ if -d _;
}

Select or download this
```
        closedir( DIR );
```

Select or download this

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

Select or download this

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

Select or download this
```
        push @files, @$files;
```

Select or download this

        recursion: {
            last unless $recurse;

Select or download this

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

Select or download this
```
            for (@$dirs) {
```

Select or download this

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

Select or download this
```
    }else{
        return;
    }
}
```

Select or download this

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

Select or download this
```
        next unless ( -s $file > 9 );
```

Select or download this

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

Select or download this

        if ( $data =~ /^BM/ ) {
            $type = 'BMP';
...
        }else {
            $type = undef;
        }

Select or download this

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

Select or download this
```
    return @images;
```
Select or download this
```
my (@files, @images);
my $recurse = 1;
```

Select or download this

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