#...
open my $handle, '<', $dateiname or die "$dateiname: $!";
while ( my $line = <$handle> ) {
  # tu was mit $line
}
close $handle;