Rapid Serial Visual Presentation in the terminal

rsvp_term

#!/usr/bin/perl
# Requires: figlet
use Time::HiRes qw/sleep/;

while(<>) {
	@F = split;
	for my $word (@F) {
		print "\n" x 5;
		system "figlet", "-tcWf", "big", "$word";
		sleep(0.1 + 0.2*(length $word)/3);
		system "clear";
	}
}