$ perl -MDateTime -le'
   my $dt = DateTime->from_epoch( epoch => 1234567890 );
   for ("America/New_York", "Europe/Rome") {
      $dt->set_time_zone($_);
      print $dt->strftime("%Y/%m/%d %H:%M:%S");
   }
'
2009/02/13 18:31:30
2009/02/14 00:31:30