#!/usr/bin/perl
use v5.14;
use File::stat;

my $dir = '/tmp/';
opendir(DIR, $dir) or die $!;

while (my $file = readdir(DIR)) {
    next if ($file =~ m/^\./);
    say "Good idea" if (stat($dir.$file));
    die "Bad idea" if (not defined stat($file));
}