#!/usr/bin/perl
my $dir = "/cdw/home_dir/s006258/";

#Opening directory and file to compare retention files
die("Cannot open /cdw/home_dir/s006258/list_of_dirs.txt.")
	unless(open(FILE, ">/cdw/home_dir/s006258/list_of_dirs.txt"));

# read all entries from dir and skip '.' and '..' directories
opendir (DIRHANDLE, $dir) or die "can't open $dir: $!";
my @list=grep !/^\.\.?\z/, readdir DIRHANDLE;



# now we sort the list on directory basis
foreach my $file (sort {-d "$dir/$b" <=> -d "$dir/$a"} @list)
{
  print FILE "$file\n" if -d "$dir/$file";
  print FILE "$dir"."$file\n" if -T "$dir/$file";
}

closedir (DIRHANDLE);
close(FILE);