print;

##</code><code>##

    package Foo;
    use OI qw(oi);
    use strict;
    our ($pkg_var1, $pkg_var2);

    $sub = oi(
        in  => 'example.html',
        my  => [ qw ($foo $bar)],
        our => [ qw ($pkg_var1 $pkg_var2 ) ],
    );

##</code><code>##

    package Foo;
    use strict;
    our ($pkg_var1,$pkg_var2);

    return sub {
        my ($foo, $bar) = @_;
        local ($_,$\,$/);

        # outside in code here

    };

##</code><code>##

    package Foo;
    use OI qw(oi);
    use strict;
    our ($pkg_var1, $pkg_var2);

    $pkg_var1 = 'var 1';
    $pkg_var1 = 'var 2';
    
    my $sub = oi(in  => 'example.html')
    $sub->('page title', 'header line');

##</code><code>##

    package Foo;
    use OI qw(AUTOLOAD oi);
    use strict;

    example('page title', 'header line');