3685l5
Listing 5. /home/httpd/cgi-bin/dialdstate.pl
#!/usr/bin/perl -Tw
# written on Sunday, 8 August 1999
# by Edward J. Beroset
my $STATFILE = "/tmp/diald.status";
$ENV{PATH} = "/bin:/usr/bin";
print <<"END";
Content-Type: text/html
Internet Connection Status
Internet Connection Status
";