use Enocde;
 open my $fh, '<:encoding(utf16)', 'somefile' or die $!;