use strict;
use warnings;
$|++ ;
my $text="this is a sample";
my @word=split(//, "$text");
for (@word){
        print "$_";
        sleep 2;
}
print "\n";
[download]