#!/usr/local/bin/perl
                                                                                                                             
our $var = 10;
                                                                                                                             
{
    local $var = 5;
    print "in var :$var:\n";
}
                                                                                                                             
print "out var :$var:\n";