#!/usr/bin/perl

use strict;
use warnings;

use Time::HiRes qw( sleep );

seek(DATA, 0, 0);
while (<DATA>) {
   print;
   sleep(0.150) if !eof(DATA);
}

print("Hello World!\n");

__END__