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

#OR
$ perl -CS -e 'chomp(my $scandir = <STDIN>); ...'

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