Select Code to Download

use AtExit;

...
    }
    $recursive1->();
}

our ($various,%shared,@vars);

...
    # recursive1() and recursive2()
    frobnicate(\&recursive1);
}

use strict;
use warnings;
...
bar('Hello');   # Prints 'Hello Hello Hello'
bar('Goodbye'); # Prints 'Goodbye Goodbye Goodbye'
__END__