Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...

    $time = time;
}
  2. or download this
    16:17 >perl 1453_SoPW.pl
1447741073 at 1453_SoPW.pl line 18.
...
1447741103 at 1453_SoPW.pl line 18.
1447741113 at 1453_SoPW.pl line 18.
...
  3. or download this
    ( $time - $previoustime >= 10
  or sleep (10 + $previoustime - $time)
)