Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $dt = DateTime->from_epoch( epoch => time() )->set_time_zone('Ameri
+ca/Los_Angeles');
print $dt->hms(':');

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

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