Adding another perl script and flat file