#!/usr/bin/perl

# Historie 

use strict;
use warnings;

my $dirname = 'C:\temp';

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while((my $filename = readdir(DIR)))
{
        next if -f $filename;
        print $filename."\n";
}

closedir(DIR);