Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
# In nomine Ad Signo, et Percentus, et Dollar Signo Sancti. Amen.
...
sub debugprint {
    if (DEBUG) {print scalar localtime , " : ", @_};
}
  2. or download this
    
<h2>Hello there.</h2>
...
[% IF get_bit (error_level, 2) %] </FONT> [% END %]
<INPUT TYPE="text" NAME="num" SIZE=20 MAXLENGTH=80>
<INPUT TYPE="submit">
  3. or download this
    <CENTER>
<H2>Results for [% params.name %]</H2>
...
<TR><TD>You entered </TD><TD>[% params.num %]</TD>
</TABLE>
<CENTER>
  4. or download this
    <CENTER>
<H2>Welcome to the secret page [% params.name %].</H2>
...
<TR><TD>Secret codename </TD><TD>ED</TD>
</TABLE>
<CENTER>