in reply to HTML Formatting of perl code

The template advice you got already is best. There is also this-

use CGI ":standard"; print div({-class => "quotes"}, div({-class => "row"}, span({-class => "label"},"Nikkei 225:"), span({-class => "value"}, $data4{'^N225', 'net'}), ), div({-class => "row"}, span({-class => "label"},"Hang Seng:"), span({-class => "value"}, $data3{'^HSI', 'net'}), ), div({-class => "row"}, span({-class => "label"},"DAX:"), span({-class => "value"}, $data5{'^GDAXI', 'net'}), ), div({-class => "row"}, span({-class => "label"},"FTSE 100:"), span({-class => "value"}, $data2{'^FTSE', 'net'}), ), div({-class => "row"}, span({-class => "label"},"S&P 500:"), span({-class => "value"}, $data{'^GSPC', 'net'}), ), div({-class => "row"}, span({-class => "label"},"Dow Jones:"), span({-class => "value"}, $data1{'^DJI', 'net'}), ), div({-class => "row"}, span({-class => "label"},"Gold:"), span({-class => "value"}, $data6{'GCQ09.CMX', 'net'}), ), div({-class => "row"}, span({-class => "label"},"Oil:"), span({-class => "value"}, $data7{'CLV09.NYM', 'net'}), ), div({-class => "row"}, span({-class => "label"},"US 10 Year Treasury Note:"), span({-class => "value"}, $data8{'^TNX', 'net'}), ), );

The underlying point either way being: learn some HTML and some CSS (note the classes above). It's quite easy, fun, and resisting it will make spaghetti of your code.