use warnings NONFATAL =>'utf8'; #disable 

print "before shiftjis\n";
open( my $fh, "<", "107.shiftjis.txt") or die $!;
print join('', <$fh>);
close $fh;

"use warnings FATAL =>'utf8'"; #enable