Select Code to Download

sub input    {                    ...; return $value;  }
sub process1 { my ($input ) = @_; ...; return $result; }
...
      )
   )
);

sub input    { my (        $c) = @_; ...; &$c($value ); }
sub process1 { my ($input, $c) = @_; ...; &$c($result); }
...
      ) }
   ) }
);

sub input    { my (        $c) = @_; ...; @_ = ($value ); goto(&$c); }
sub process1 { my ($input, $c) = @_; ...; @_ = ($result); goto(&$c); }
...
      ) }
   ) }
);

goto line1;

...
line2: { push(@_, 'line3'); goto process1; }
line3: { push(@_, 'line4'); goto process2; }
line4: {                    goto output;   }