[solved] Perl: sleep

#!/usr/bin/perl



$message = "\nHallo!\n\n\Sleep\nTest\n\n";

@satz=split //, $message;

foreach $buchstabe (@satz)
	{
	`sleep 1`;
	print "$buchstabe";
	}

foreach $buchstabe (@satz)
	{
	sleep(1);
	print "$buchstabe";
	
	}

#!/usr/bin/perl
use warnings;
use strict;

use IO::Handle;

my $message = "\nHallo!\n\nSleep\nTest\n\n";

my @satz=split //, $message;

my $buchstabe = "";

autoflush STDOUT 1;

foreach $buchstabe (@satz)
{
   sleep(1);
   print $buchstabe;
}