#!/usr/bin/perl 
$wget="http://losangeles.craigslist.org/search/cta?query=";
$wget .= $ARGV[0];
print $wget . "\n";
$html = `wget -q -O - $wget`;
	@words = split(' ', $html); 
	foreach $word (@words) 
		{
		 if ( $word =~ m/^\$/) 
			{
				$word =~ s/(\$|,)//g ; 
				if ( $word =~ m/^\d+$/ ) 
				{
					if ( $lowest eq '') { 
						$lowest = $word ;
					} elsif ( $word < $lowest ) {
						$lowest = $word ; 
					}
					if ( $highest eq '') { 
						$highest = $word ;
					} elsif ( $word > $highest ) {
						$highest = $word ; 
					}
					$amt += $word ;
					$count++; 
				}
			}
		}
$average = ( $amt / $count ) ;
print "lowest:\t\t$lowest\nhighest:\t$highest\n";
print "Average:\t" . $average ."\n";