#!C:/perl/bin/perl.exe use CGI; $query = new CGI; $subjectselected= $query->param('subjectselected'); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year = 1900 + $year; $mon= $mon+1; $ampm = "a.m."; if($hour > 12){ $hour= $hour - 12; $ampm = "p.m."; } $date1= "$mon/$mday/$year"; $date2= "$hour:$min" . "-" . "$ampm"; print $query->header; print $query->start_html(-title=>$subjectselected); print ""; print "Discussion Forum
Perl CGI for Internet Research


"; print "
"; print "Topic: $subjectselected
"; print "
"; print "
Name
Password
Reply

"; print "
"; $temp2= "\"$subjectselected\""; print ""; print ""; print ""; print ""; print "
"; print $query->end_html;