Created test print file

Created a perl script to print to console.