#! c:\perl\bin print("Enter filename to open (text only):\n\n");