du kannst das filehandle auch gleich als lexikalische variable anlegen:
open (my $fh, "pfad") or die $!;