Select Code to Download

use strict;
use warnings;
...
{
    print "AFTER:  str = $str\n";
}

13:30 >perl 1738_SoPW.pl
BEFORE: str = A
...
AFTER:  str = C

13:30 >