#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

my $scandir = './pm_1080490_utf8_readdir';

opendir(my $dh, $scandir);

my @files = grep { -f "$scandir/$_" } readdir $dh;

print for @files;