#!/usr/bin/perl

use DateTime::Format::Epoch::Unix;

  my $dt1 = 
  DateTime->new( year       => 2003,
                 month      => 4,
                 day        => 28,
                 hour       => 0,
                 minute     => 0,
                 second     => 0,
                 nanosecond => 0,
                 time_zone  => "floating",
                );

  my $dt = DateTime::Format::Epoch::Unix->parse_datetime( 1051488000 );
   # 2003-04-28T00:00:00
  print $dt, "\n";

  my $dt = $dt1->datetime();
  print $dt, "\n"; 
  my $dt2 = DateTime::Format::Epoch::Unix->format_datetime($dt);
   # 1051488000
  print $dt2, "\n";