Help for this page

Select Code to Download

Select or download this

sub perform {
    my( $code )= @_;
...
        # write-report
    });
}