print "Before: c=$c\n";