use strict;
use warnings;

open my $dir, "dir |" or die $^E;
printf "Zeile: %s => %s\n", $. , do{chomp; $_} while <$dir>;