Create f1.perl

Assignment from class. Unsure what it is supposed to accomplish. Opens a file.