Der Befehl open(OUTFILE, "<$file") kann ...
ist besser in dieser Form zu verwenden
open( my $fh, "<", $file ) or die ...
mfg Beat
--
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische
><o(((°> ><o(((°>
<°)))o>< ><o(((°>o
Der Valigator leibt diese Fische