It's common practice on this site to make any significant edits to your node clear (for instance, by starting new paragraphs with "update:" or striking out outdated lines. That way you won't make the people who replied to the first version of the post look like idiots :-)

Anyway, since you seem to want to convert standard Unix time - seconds since 0:00 1/1/1970 - to MJD - fractional number of days since 0:00 November 17, 1858 - correct me if I'm wrong here - try this:

#!/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 ) );
[download]

Note that the time function returns the current unix date on all systems I know of except Mac OS classic.