Help for this page

Select Code to Download

Select or download this

sub once {
    my $wrapper;
...
}
my $on = once;
$on->();