while (my $line = <LS>)
{
  chomp $line;
  $count += 1;
  print $count . ". " . $line;
}

#!/usr/bin/perl -w

use strict;
my $count = 0;

open (LS, "ls |");

while (my $line= <LS>)
{
  $count += 1;
  chomp($line);
  printf("$count $line\n");
}

close (LS)
  or die "Fehler beim Ausführen von ls!";

#!/usr/bin/perl

use warnings;
use strict;

use Cwd;

my $dh;
opendir($dh, getcwd()) or die;
my @files = readdir($dh);
close($dh);

@files = sort(@files);

my $i;
foreach $i (0 .. $#files) {
    if ($files[$i] eq "." || $files[$i] eq "..") {
        next;
    }
    print $i + 1 . ". " . $files[$i] . "\n";
}

use strict;
use warnings;

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