use strict; use warnings; use FindBin; use File::Spec; my $whereami = $FindBin::Bin; use Test::More; #my $infile = 'config/ytmd.cfg'; # no problem #my $infile = File::Spec->catdir('config', 'abc.cfg'); # no problem my $infile = File::Spec->catdir($whereami, 'config', 'ytmd.cfg'); # problem open my $fh, '<:encoding(UTF-8)', $infile or die; close $fh; done_testing;