in reply to reading values from file

#!/usr/bin/perl -n BEGIN{ print "debug mode\n" if shift == 1} $old_version=$1 if /ver = '(.*)'/; END{($projlabl = $projectPath)=~s/\.pro/labeler/}
updated: i'd forgotten about the shift.