#!/usr/bin/perl -w
#
use Astro::Sunrise; 
$y=2012;
$m=03;
$d=19;
$long=-86;
$lati=37
$Zone=-5;
$DST=1;
$ALT=-0.8333;
($sunrise, $sunset)=sunrise($y,$m,$d,$long,$lati,$Zone,$DST,$ALT,1);
print $sunrise,"\n";
print $sunset,"\n";