#  Write the new file out.
      my $strdate = gmtime( time );
      open( FILE, ">$filename" ) || &InvalidFile();
      print FILE <<EOF;
<!-- Author: $author -->
<!-- Date: $strdate (GMT) -->
<!-- Title: $title -->
<!-- Keywords: $kwords -->
<!-- Video Lecture: $vidlect -->
<!-- Changes: Modified $strdate (GMT) $author | $changes -->
$body
EOF

##</code><code>##

print <<EOF;
  
<form action="$main::script" enctype="multipart/form-data" method=post>
<p>
<pre>
<b>Your name</b>: <input type=text name=author value="$author"
 size=40 />
<b>The title</b>: <input type=text name=title value="$title"
 size=40 />
<b>Keywords</b> : <input type=text name=keywords value="$kwords"
 size=40 /> (optional)
 
 <b>Video Lecture</b> : <input type=text name=vidlect value="$vidlect"
 size=140 />

</pre>
</p>

<textarea rows=15 cols=175 WRAP=SOFT name=body>$body</textarea><br>
</p>
EOF

##</code><code>##

print <<EOF;
<div>$vidlect</div>
EOF
  print <<EOF;