#!/usr/bin/perl
# 
# p2.pl
#
use strict;
use warnings;

# disable buffering of STDOUT; see the already mentioned "Suffering from Buffering"
$| = 1;

my $string = "Hello World!";

for ( split //, $string ) {
  print $_;
  sleep 1;
}

print "\n";

__END__