Help for this page

Select Code to Download


  1. or download this
    my $query;
if ($ENV{REQUEST_METHOD} eq 'GET') {
...
    my ($key,$value) = split /=/, $tupel;
    $param{$key} = $value;
}
  2. or download this
    CREATE TABLE persons (
    name varchar(255),
    age tinyint
);
  3. or download this
    #!/usr/bin/perl -T # always use -T for CGI stuff. read perlsec

...
print "</tbody>\n</table>\n";
print "<b>$error</b>" if $error;
print "</body></html>\n";