#!/usr/bin/perl

use strict;
use warnings;

use DateTime;
use DateTime::Event::Sunrise;

# generating DateTime objects from a DateTime::Event::Sunrise object
my $sun = DateTime::Event::Sunrise->new(longitude => 144.965,
                                        latitude  => -37.72);

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
  localtime(time);

my $dt = DateTime->new( year   => 1900+$year,
                        month  => $mon+1,
                        day    => $mday,
                        time_zone => 'Australia/Melbourne');

#print "In Melbourne on ", $dt->ymd, " sunrise occurs at ", $sun->sunrise_datetime($dt)->hms,
#  " and sunset occurs at ", $sun->sunset_datetime ($dt)->hms, "\n";

my ($sunrise, $sunset) = ($sun->sunrise_datetime($dt)->hms, $sun->sunset_datetime ($dt)->hms);

print "$sunrise\n$sunset\n";