I like the DateTime module.

#!/usr/bin/perl -l

use DateTime;

my $d1 = DateTime->from_epoch( epoch => time );

print "1. epoch: " . $d1->epoch;
print "1. mm/dd/yyyy: " . $d1->mdy( '/' );

my $d2 = DateTime->new( 
    month => 7,
    day   => 16,
    year  => 2005,
    );

print "2. epoch: " . $d2->epoch;
print "2. mm/dd/yyyy: " . $d2->mdy( '/' );
[download]