#!/usr/bin/perl -w


use strict;
use warnings;
use Date::Manip;


# Convert to EPOCH
my $ptime = ParseDate("now");
print "PTIME: \"$ptime\"\n";

my $sepoch = UnixDate($ptime,"%s");
print "SEPOCH: \"$sepoch\"\n";

#$dtime = UnixDate($ptime, "%Y-%m-%d %H:%M:%S");
#print "DTIME: \"$dtime\"\n";


# Convert it back
my $date = ParseDateString("epoch $sepoch");
print "DATE: \"$date\"\n";

my $ndtime = UnixDate($date, "%Y-%m-%d %H:%M:%S");
print "NDTIME: \"$ndtime\"\n";

exit;