#!/usr/bin/perl -w

use strict;
my $count = 0;

open (LS, "ls |");

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

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