#!/usr/bin/perl # file handles have no set prefix though Perl practice # encourages upper case. A perl program will exit # exit immediately if a file can't be opened and will # will not tell you if the file you want written to # does not exist. # Simple file file open. Sample.txt, a sample text file, # needs to be in same directory. $check = open FILE, "Sample.txt"; if ($check){ print "File opened by program.\n"; } close FILE; print "\n"; #open with error detecting code.... $check = open FILE, "noFile.txt"; if (! $check){ print "Wrong file cited by program.\n"; }