in reply to difference between my and local
#!/usr/local/bin/perl + our $var = 10; + { local $var = 5; print "in var :$var:\n"; } + print "out var :$var:\n"; [download]