sub preprocess { print "Pre-Processing\n"; $old_flag = 0; @_; }