use Encode;
open my $fh, "<:encoding(whatever)", $filename or die $!;