Select Code to Download

$GLOBAL1 = do_stuff($GLOBAL0, $GLOBAL1);

... set globals ...
...
do_stuff;
...
... use modified globals

&read_input;
&calculate_this;
...
sub read_input { ... }
sub write_output { ... }
sub calculate_that { ... }