Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Nested subroutine with local variable
$value = 1;
sub printem() {
   print "\$value = $value\n"
};
sub makelocal() {
    my $value = 2;
    printem;
}
makelocal;
printem;