#! /usr/local/bin/perl use CGI; my $q=new CGI; print $q->header("text/html"); print <<'END_M' ; PSU Likelihood Center

END_M open (FileO , "< ../../webdata/news.data") or die ("error open"); while() { if ($_ =~ m/:/) { ($date, $content)=split /:/ ; print "$date $content

\n"; } } close FileO; print <<'END_M';



NEWS | TECH REPORT | PEOPLE | ALUMNI
webmaster
PSU Likelihood Center PSU Department of Statistics Tech Reports / Papers People Alumni END_M