#!/usr/local/bin/perl
#Code is used 

open (LYNX, "lynx -source 'http://www.itn.net/cgi/air?stamp=NEWCOOKY*itn%2Ford%3DNEWREC,itn/air/united&airline=United&persons=1&air_avail=10&air_class=coach+%28lowest+avail.%29&depart=lax&dest.0=ord&mon_abbr.0=Apr&date.0=16&hour_ampm.0=5+am&mon_abbr.1=Apr&date.1=23&hour_ampm.1=5+am&ecert_num=&rt_ow=Round+Trip&best_itins=2&return_to=best_itins
'
 |") or die "Can't open lynx: $!";

my @lines= <LYNX>;
my $total=0;

foreach (@lines){ 
	if (/USD/){
		print "Here's one USD per person\n";
		++$total;}
	}; 

print "The total amount of available fares is: $total\n";