#!/usr/bin/perl

use strict;
use warnings;
use Time::HiRes qw(nanosleep);


my $file = $ARGV[0];

#print "$file\n";

open my $info, $file or die "Couldn't open $file: $!\n";
my $counter = 0;usleep
while (my $line = <$info>) {
	print $line;
	$counter++;
	if ($counter % 100) {
		nanosleep(500);
	}
}

