...
open (FILE1,$p)
    or die "Couldn't open file '$p': $!";
...