#!/usr/bin/perl

use WWW::Wunderground::API;
use WebService::Pushover;

my $push = WebService::Pushover->new
    or die( "Unable to instantiate WebService::Pushover.\n" );

my $wun = new WWW::Wunderground::API('02138');

my $msg = $wun->weather ." | Temp: " . $wun->temp_f . " | Wind: " .  $wun->wind_string . " | Humidity: " . $wun->relative_humidity . "\n";

my %params = (
    token => '',
	user => '',
	message => $msg,
);

my $status = $push->push( %params );
