#!/usr/bin/perl -w
use strict;
use DateTime;

my $dt = DateTime->from_epoch( epoch => time() )->set_time_zone('Ameri
+ca/Los_Angeles');
print $dt->hms(':');
[download]

prints the current time in Los Angeles.

#!/usr/bin/perl -w
use strict;
use DateTime;

my $dt = DateTime->from_epoch( epoch => 1395697655 )->set_time_zone('E
+urope/Rome');
print $dt->hms(':');
[download]

prints what time it was in Rome when I wrote this code. You need two pieces of data:

• Time zone for output
• Time stamp to output

and then you can output whatever time any computer thought it was, translated into local time. If this is not what you need, then I'm misunderstanding your spec. Please give specific data for what you expect to see.