sub currentDate {
	my @timeParts=localtime;	
 	my ($day, $month, $year) = ($timeParts[3],$timeParts[4],$timeParts[5]);
	return ($month+1)."/".$day."/".($year+1900);
}


print "<title>Stock Quotes for ", &currentDate , 	 "</title>\n";