Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
...
...
  my $name = $fname.$lname;
  ...
}
  2. or download this
    sub handler {
    ...
...
      ...
    }
}
  3. or download this
    sub OUTER {
  my $x if 0;
...
OUTER: $x is now: 0
INNER: $x is now: 1
INNER: $x is now: 2
  4. or download this
    ...
my $fname : static = $q->param('fname');
my $lname : static = $q->param('lname');
...