Select Code to Download

#!/usr/bin/perl -w
...
...
  my $name = $fname.$lname;
  ...
}

sub handler {
    ...
...
      ...
    }
}

sub OUTER {
  my $x if 0;
...
OUTER: $x is now: 0
INNER: $x is now: 1
INNER: $x is now: 2

...
my $fname : static = $q->param('fname');
my $lname : static = $q->param('lname');
...