#!/usr/bin/perl

use strict;
use warnings;

# die Datei, die durchsucht werden soll
my $file = 'file.txt';

# oeffne die Datei
# < ist lesend, > ist schreibend, >> ist anhaengend
# 'or die $!' gibt eine Fehlermeldung aus wenn die Datei nicht
# geoeffnet werden kann (fehlende Rechte, Datei nicht da, etc)
open my $fh, '<', $file or die $!;

# so lange Zeilen ausgelesen werden
while( my $line = <$fh> ){
    # gib Zeilennummer und Zeile aus
    print $. . $line;
}

# schliesse Datei
close $fh;