Select Code to Download

#  Write the new file out.
      my $strdate = gmtime( time );
      open( FILE, ">$filename" ) || &InvalidFile();
...
<!-- Changes: Modified $strdate (GMT) $author | $changes -->
$body
EOF

print <<EOF;
  
<form action="$main::script" enctype="multipart/form-data" method=post
+>
...
<textarea rows=15 cols=175 WRAP=SOFT name=body>$body</textarea><br>
</p>
EOF

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