use strict;
use warnings;

my $directory="/home/Modules";
opendir(DIR, $directory) or die "couldn't open $directory: $!\n";
my @files = grep { $_ ne '.' && $_ ne '..' } readdir DIR;
open(FILE,">Modules");
print FILE join("\n",@files);
close(FILE);
closedir DIR;