Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -wT
use strict;
  2. or download this
    use CGI;
my $q = new CGI;
print $q->header;
  3. or download this
        print "<H2 ALIGN=center>It's been sent!</H2>; 
        print "<HR ALIGN=center>";
    print "<IMG SRC=\"http://www.iupui.edu/~webtrain/Graphics/Photos/b
+ora_bora.jpg\>";
        ...
  4. or download this
    @pairs =  &url_decode(split(/[&]/, $request));
while ($pairs[$r]) {
    ($a,$b) = split(/[=]/,$pairs[$r++]);
    ($name = $b) if ($a eq 'name');
        ($email = $b) if ($a eq 'email');
        ...
  5. or download this
    $q->param('name')
$q->param('email')
...