Select Code to Download

readline() on unopened filehandle at ...

readline() on unopened filehandle at ... (#1)
    (W unopened) An I/O operation was attempted on a filehandle that w
+as
    never initialized.  You need to do an open(), a sysopen(), or a so
+cket()
    call, or call a constructor from the FileHandle package.

use warnings;
use strict;

my $path = '/var/log/*';
my @files = grep { -f } glob $path;