#!/usr/bin/perl/

open(FILE,"<main.html") || die "couldn't open main.html for reading";
@lines = <FILE>;
close(FILE);



open(FILE,">main.html") || die"couldn't open main.html for writing";
foreach $line (@lines) {
  print FILE $line;
}
close(FILE);



print "Please enter your name: ";
$name = <STDIN>;
chop($name);

print "Please enter your : ";
$day = <STDIN>;
chop($day);

print "Please enter your : ";
 = <STD$IN>;
chop($time);

print "Please enter your : ";
 = <STDIN>;
chop();

print "Please enter your : ";
 = <STDIN>;
chop();

print "Please enter your : ";
 = <STDIN>;
chop();

print "Please enter your : ";
 = <STDIN>;
chop();



<!-------------------------------- INFO -------------------------------------------->
<tr><td><center><table>
<tr><td><b>Lecturer:</b></td> <td> $name </td></tr>
<tr><td><b>Lecture Times:</b></td> <td> $day $time </td></tr>
<tr><td><b>Lecture Room:</b></td> <td> $building $room</td></tr>
<tr><td><b>Office:</b></td> <td>Compueter Sciences $office </td></tr>
<tr><td><b>Phone:</b></td> <td> $phone </td></tr>
<tr><td><b>Email:</b></td> <td><a href="mailto:$login@wisc.edu">$login@wisc.edu</a></td></tr>
<tr><td><b>Office Hours:</b></td> <td> $office_hours </td></tr>
</table></center></td></tr>
<!-------------------------------- INFO -------------------------------------------->