for(0..100) {
    sleep .15;
}

##</code><code>##

for(0..100) {
    sleep 0;
}

##</code><code>##

    my( $x, $y, $z );
    select($x=undef,$y=undef,$z=undef,0.15);