Help for this page

Select Code to Download

Select or download this

use Modern::Perl;
use Date::Calc qw/ Date_to_Time Time_to_Date /;
...
      : sprintf '%4d-%02d-%02d %02d:%02d:%02d for %02d minutes',
      Time_to_Date( $tStart ), ( $tEnd - $tStart ) / 60;
}

Select or download this
```
2012-08-17 12:00:00 for 30 minutes
```