open (INP, "< datei") or die "keine datei"; mach was; close INP; # oder { open (my $inp, "< datei") or die "keine datei"; mach was; }