#!/usr/bin/perl
use Time::Local;
#get the time in Sydney, regardless of what the server may be configured for
my @dayofweek = (qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday));
my @monthnames = (qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec));
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday);
#$ENV{TZ} = ':/usr/share/zoneinfo/Australia/Sydney';
$ENV{TZ} = ':/usr/share/zoneinfo/Europe/Paris';
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = localtime($TimeInSeconds);
$year += 1900;
print "This date is $dayofweek[$wday], $monthnames[$mon] $mday, $year\n";
print "This time is $hour:$min:$sec\n";