#! /usr/bin/perl
use strict;
use warnings;
use File::Find;

my $dir = "c:/test";
my @files = ();
find (sub {
  if (-f $_) {
    push (@files, $File::Find::name);
  }
}, $dir);

foreach my $file (sort @files) {
  print "Datei: $file\n";
} # foreach