minor perl command line arg change