open( my $fh, "<:cp1252", "file.name" ) or die $!;  # assuming it's cp1252