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

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

        # outside in code here

    };