#! /usr/bin/perl

use strict;

my $history = shift;
open my $fh, "<:encoding(utf8)", "$history" or die "$history: $!";
while (my $line=<$fh>){
    $line =~ tr/\r/\n/; # NOTE convert carriage returns to new lines
    print $line;
}
close($fh);

exit;