Help for this page

Select Code to Download


  1. or download this
    my $username = trim(param('username'));

...
   $dirty =~ s/\s*$//g;   # remove trailing whitespace
   return $dirty || '';   # return empty string if $dirty is undef
}
  2. or download this
    print q|<html>
<head>
...
</head>
<body>
|;
  3. or download this
    use CGI qw(:standard);
print header, start_html('Logging in ...');