Select Code to Download

my $first;
my $second;
...
   $second = Second();
   $third  = Third();
}

sub First  {                          ... }
sub Second { our $first;              ... }
...
   local our $second = Second();
   local our $third  = Third();
}

our $first;
our $second;
...
   local $second = Second();
   local $third  = Third();
}

sub First  { ... }
sub Second { ... }
...
   $o->Second();
   $o->Third();
}

sub First  { ... }
sub Second { ... }
...
   Second(\%h);
   Third(\%h);
}