#!/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!";