#!/usr/bin/perl

#
# .bitchxrc:
#
# on +public "* #hgb !time" {
#    ^exec -name TIMEQ ~/.BitchX/aus_time.pl
#    ^on ^exec "TIMEQ *" {
#        msg #hgb australien-user would say: "$1-"
#      echo $Z $N/$C australien-user would say: "$1-" }
#  }
#


use DateTime;


my $dt = DateTime->now->set_time_zone( 'Australia/Adelaide' );
print sprintf("it's now %02d:%02d and %02dsec on %s %s\n",
              $dt->hour, $dt->minute, $dt->sec, $dt->month_name, $dt->mday);