Help for this page

Select Code to Download


  1. or download this
    use Time::HiRes 'usleep';++$|;$s='rekcah lreP rehtona tsuJ';@v=
(65..90,97..122,32);do{do{print$_=sprintf'%c',$v[rand@v];usleep
2000;print"\b"}while$_ ne substr$s,-1;chop$s;print}while$s
  2. or download this
    use Time::HiRes 'usleep'; # to get usleep

++$|; # same as $| = 1, i.e. enabling autoflush
...

#..while there's still something to print in $s
} while $s