#!/usr/bin/perl -w
use strict;
use DateTime::Format::Epoch::MJD;
use DateTime::Format::Epoch::Unix;

print DateTime::Format::Epoch::MJD->format_datetime( DateTime::Format::Epoch::Unix->parse_datetime( time ) );