use File::LocalizeNewlines; File::LocalizeNewlines->localize( $filename );