Hello, World!

Fri Apr 26 18:50:30 PDT 2024
Fri Apr 26 18:50:30 PDT 2024
#!/usr/bin/perl

use CGI qw/:standard/;

print header;
print start_html('slowperl.cgi');
print h1("Hello, World!");
print "<tt>";
print `date`."<br>\n";
print `date`."<br>\n";
print "<hr>";
open(FP,"slowperl.cgi");
read(FP, $buf,16384);
close(FP);
$buf=~s/&/&amp;/g;
$buf=~s/</&lt;/g;
$buf=~s/\n/<br>\n/g;
print $buf;
print "<hr>",`date`,"<br>\n";
print "</tt>";
print end_html,"\n";
Fri Apr 26 18:50:30 PDT 2024