#!/usr/bin/perl -w # # Yksinkertainen CGI-esimerkki # - kokeile lomake.html:n kanssa # Jukka Mäntylä # use CGI qw(:standard); # Otetaan CGI-kirjasto käyttöön. sub tulosta_parametrit { my @names = $cgi->param(); foreach my $p ( @names ) { my $cgi = new CGI; my @pari = $cgi->param($p); foreach my $i ( @pari ) { print $p . "\t=\t" . $i . "\n"; } } } print header; # Lähetetään otsikkotiedot selaimelle print < Yksinkertain CGI-esimerkki 
HTML_ALKU

&tulosta_parametrit;

print <


HTML_LOPPU