Help for this page

Select Code to Download

Select or download this

binmode(STDIN, ':encoding(UTF-8)');
chomp(my $scandir = <STDIN>);
...

#OR
$ perl -CA -e 'my $scandir = shift; ...' <dir>