Select Code to Download

$ perl -MO=Deparse -e '<*>'
use File::Glob ();
glob('*');
-e syntax OK

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

for my $file (@files) {
    open my $fh, '<', $file or
...
    # ...
    # no need for an explit close() 
}

$ cat foo.pl
#!/usr/bin/perl
...

$ cat foo.pl
Gotcha!

      elsif ( data =~ /^\x89PNG\x0d\x0a\x1a\x0a/) {
         type = 'PNG';
      }