#!/usr/bin/perl
use strict;
use warnings;
{
    our $V = 'non-local';

    sub print_v {
        print "$V\n";
    }
}

{
    local our $V = 'local';
    print_v;
}

print_v
__END__