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

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