#!/usr/bin/perl

use strict;
use warnings;
use Date::Parse;

print str2time("2011-03-18 02:39:04") . "\n";
print str2time("1970-01-01 00:00:10") . "\n";
print str2time("2012-01-05 14:23:09") . "\n";

exit;

##</code><code>##

##########
use strict;
use warnings;
use Date::Parse;

<some more code here>

$dashboardAlarmStartTime = $dashboardAlarm->startTime;
print "dashboardAlarmStartTime: " . $dashboardAlarmStartTime . "\n";
$maxDashboardAlarmForGroupStartTime = $maxDashboardAlarmForGroup->startTime;
print "maxDashboardAlarmForGroupStartTime: " . $maxDashboardAlarmForGroupStartTime . "\n";
my $timeDiff = str2time($dashboardAlarmStartTime) - str2time($maxDashboardAlarmForGroupStartTime);
print "timeDiff: " . $timeDiff . "\n";

##</code><code>##

perl -MDate::Parse -le 'print $INC{"Date/Parse.pm"}'