#!/opt/perl/bin/perl -w

use strict;

$| = 1;

# Set this one to a value appropriate for your terminal/computer.
my $delay = 1500;


scalar(@ARGV) or die "usage: showvt file\n";

open(FILE, $ARGV[0]) or die "open: $!\n";
while (read(FILE, my $c, 1)) {
    print $c;
    for (my $i = 0; $i < $delay; $i++) {}
}
close(FILE);
.