Cool/useful short examples of Perl?

[Imre Saling]

Quoting "Ruud H.G. van Tol" <rvtol at isolution.nl>:
>
>     # see also perlvar: $BASETIME
>     { my $t0 = time; sub elapsed { time - $t0 } }
>
> -- 
> Ruud


or to get the elapsed time since the last call to elapsed():

   my $t0 = time;
   sub elapsed {
     my $t = time;
     my $dt = $t - $t0;
     $t0 = $t;
     return $dt;
   }

-pelagic