#! /usr/bin/perl

use strict;

my $history = shift;
open my $fh, "<:encoding(utf8)", "$history" or die "$history: $!";
while (my $line=<$fh>){
	print $line;
}
close($fh);

exit;