#!/usr/bin/perl
# curtemp.pl by Artem Litvinovich
use LWP::Simple;
my ($zip) =  @ARGV?@ARGV:("10027");
get("http://www.weather.com/weather/local/".$zip) =~ /Feels Like.*?>(.+?)&/;
print $1?"Feels like $1".chr(176)."F at $zip\n":"Temperature information not available for $zip\n";