Mega Code Archive

 

Categories / Perl / Subroutine

 

Nested subroutine with local variable

$value = 1; sub printem() {    print "\$value = $value\n" }; sub makelocal() {     my $value = 2;     printem; } makelocal; printem;