Help for this page

Select Code to Download


  1. or download this
    sub test() {
        my $n = 10;
    ...
        { print( $n++, "\n" ) }
        print "\$n is now $n\n;
    }