#!/usr/bin/env perl -l

use strict;
use warnings;
use autodie;

my $dir = 'pm_1208191_utf8_filenames';
my $out = 'pm_1208191_utf8_filenames_listing.txt';

open my $fh, '>', $out;
opendir(my $dh, $dir);

print $fh $_ while readdir $dh;

##</code><code>##

use open IO => qw{:encoding(UTF-8) :std};