Re^2: Best way to print out a particular date-time format (very specific)

# Rough AEST Time. (Australian Eastern Standard Time)
# Get GMTIME, then add zone incrament.
# Best to define all zones in a hash or array or something,
# and use the appropriate zone incrament depending on what 
# time zone you want to use/show.
#
# At least this is how I have always done it.

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) 
    = gmtime(time);
# GMTIME+AEST_TIME(10)
my $zone_standard_hour=($hour+10);
[download]

Comment on Re^2: Best way to print out a particular date-time format (very specific) Download Code