#!/usr/bin/perl

use Weather::Underground;

sub showdate {
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();
    $actyear = $year + 1900;
    $actmon = $mon + 1;
    my @days = qw( Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
    if($min < 10) {
    	$actmin = "0$min";
    } else {
    	$actmin = "$min";
    }

    print "$days[$wday], $actmon.$mday.$actyear $hour:$actmin\n";
}

$weather = Weather::Underground->new(
    place => "20002",
    debug => 0,
)
|| die "Error, could not get new weather object: $@\n";

$count = 0;

$| = 1;

while(1) {
        if($count == 0) {
	    $arrayref = $weather->get_weather();
	    print "(U) ";
	}
	
	if($arrayref) {
	    print "$arrayref->[0]->{conditions}, $arrayref->[0]->{temperature_fahrenheit}F | ";
	}

	showdate();
	sleep 5;

	$count++;
	if($count == 60) {
	    $count = 0;
	}
}