Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    print "Ended at ", (strftime "%a %b %e %H:%M:%S %Y", localtime($end)),
    + "\n";
    
    print "Total run time:", $end-$start, " seconds\n";
    
  2. or download this
    Started at Thu Dec 22 14:59:20 2005
    Logging some stuff...
    ...
    Logging some stuff...
    Ended at Thu Dec 22 14:59:25 2005
    Total run time:5 seconds