sub ISO_date_format{ my $epoch_date = shift; my @localtime = localtime($epoch_date); my $iso_date = sprintf ("%4d-%0.2d-%0.2d", $localtime[5] + 1900, $localtime[4]+ 1, $localtime[3]); return ($iso_date); }