#!/usr/bin/perl -w
use strict;
my $zip = $ARGV[0] or print "Usage: $0 [zipcode]\n" and exit 1;
use XML::RSS::Parser;
my $feed = XML::RSS::Parser->new->parse_uri("http://rss.accuweather.com/rss/liveweather_rss.asp?metric=0&locCode=$zip");
print $feed->query('//item')->query('title')->text_content . "\n";