Help for this page

Select Code to Download


  1. or download this
    >perl -le"use Time::HiRes qw( time ); $stime=time; require IO::Handle;
+ $etime=time; print $etime-$stime;"
0.082003116607666
...

>perl -le"use Time::HiRes qw( time ); $stime=time; require IO::Handle;
+ $etime=time; print $etime-$stime;"
0.120858192443848
  2. or download this
    autoflush(HANDLE, 1);