Select Code to Download

$ ls -ltr
-rw-------   1 pelagic  dba      4294967296 Mar 16 13:50 foo
-rw-------   1 pelagic  dba         4096 Mar 16 13:52 bar

use strict;
my @files = qw/foo bar/;
...
                print $file, " not found\n";
        }
}

foo not found
bar found