Subroutine Perl

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