#!/usr/local/bin/perl use CGI qw/:standard :html3/; open(STUFF,">libraryArchive") || die "Cant open file"; print STUFF (td("Melville Dewey").td("New York Public Library")."\n"); print STUFF (td("Bill and Hillary Clinton").td("Ken Starr")); close STUFF; open(STUFF2,"libraryArchive") || "Cant open file"; @rows = <STUFF2>; print header, start_html(), table({-border=>''}, caption(strong('Libraries Chosen')), Tr({-align=>CENTER, -valign=>TOP}, [ th(['Student','Library']), TR([@rows]), ]) ), end_html;