http://qs1969.pair.com?node_id=61737


in reply to Re: Perl & Personal Web Server
in thread Perl & Personal Web Server

Nice post, dws. Shouldn't you get the youngsters off to a good start, though, with a rudimentary CGI module script?
#!/usr/bin/perl -w use strict; use CGI qw(:standard); print CGI::header(),"\n\n"; print CGI::start_html(),"\n\n"; print CGI::start_table(); print CGI::Tr(CGI::th({-align => 'left'},['KEY','VALUE'])),"\n\n"; foreach my $key (sort keys %ENV ) { print CGI::Tr( CGI::td( {-align => 'left'},[$key ,$ENV{$key}])), +"\n"; } print CGI::end_table(),"\n\n"; print CGI::end_html();

That way, the point is drilled in verbosely, to use CGI. :-)

And incidentally, for posterity, it will come in handy to visit this link.

mkmcconn