#!/usr/bin/perl
use strict;
use warnings;

my $dir ="./tmp";

open (FH, "<$dir/txn-history.txt") or die "Couldn‘t open $dir/txn-history.txt, $!"."\n";
while(<FH>) {
print "$_";
}