Select Code to Download

my $datestr = '2017-02-10 08:12:57';
my $unixtime = timelocal(reverse split /[:\s-]+/, $datestr);

my ($sec, $min, $hour, $mday, $mon, $year) = reverse split /[:\s-]+/, 
+$datestr;
print "sec:$sec min:$min hr:$hour mday:$mday mon:$mon year:$year\n";