#!/usr/bin/perl use CGI qw(:cgi-lib); print "Content-type:text/html\n\n"; print <
END open(QUOTE,'wget -o /dev/null -O - http://api.finance.yahoo.com/instrument/1.0/GOOG,AKAM/badge\;quote/HTML/f.white?AppID=TBuncd94bAlCt74K7brWxPB5iw--\&sig=pkDJbugwC.fEbSEV_c7DZ095GS8-&t=1190867189562 |'); while($_ = ) { if (/(