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