opendir ( my $dir, "/mnt/data/Programming")
   or die "Can't open directory: $!\n";
my @files = readdir( $dir );
closedir( $dir );