sub openhelp  {
     print "Content-type: text/html\n\n";

print "This program will open an example file. <br>";
open (example, "example.txt") || die ("Could not open file <br> $!");
$text = <example>;
print "The first line of the file reads : $text ";
close (example);
        }