# Time to wait in milliseconds (0.25 => 250)

my $waiting = 0.25;

while (1) {

	print "Hallo World!\n";

	# sleep of $waiting milliseconds

	select( undef, undef, undef, $waiting );

}