Help for this page

Select Code to Download

Select or download this

open ERROR, '>', $file unless -e $file;
close ERROR;

Select or download this

#! perl -slw
use Time::HiRes qw[ time ];
...
1285789900.87509
1285789901.02394
1285789901.324