Help for this page
for(0..100) { sleep .15; }
for(0..100) { sleep 0; }
my( $x, $y, $z ); select($x=undef,$y=undef,$z=undef,0.15);