Select Code to Download

# --------------------------------------------------------------------
+-
# Get the current date and time in epoch seconds.
# --------------------------------------------------------------------
+-
...
my $cfg{time_offset} = shift;
        return time + 3600 * $cfg{time_offset};
}

# --------------------------------------------------------------------
+-
# Format date output.
...

        return $formatted_date;
}

# --------------------------------------------------------------------
+-
# Calculate difference between two dates.
# --------------------------------------------------------------------
+-
...

        return $result;
}