use strict;
open (LST, "c:\\list.lst")||die "$^E : $!\n";
chomp (my @data=<LST>);
my $app_sync_dir = 'c$\program files\common files\ms sysadmin\log\ApplicationSynchronizer';
for (@data)
{
	my $target_dir = "\\\\".$_."\\".$app_sync_dir;
	print "$target_dir\n";
	if (-e $target_dir)
	{
		opendir (DIR, $target_dir) || warn "\n$_ : No log file was found\n";
		chomp(my @status = readdir(DIR));
		for (@status)
		{
			next if (($_ eq '.')||($_ eq '..'));
			print "$_ : ";
			my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat( $target_dir."\\".$_);
			print "$mtime\n";			
		}	
	}
	else
	{
		print " : No ApplicationSynchronizer folder was detacted.\n";	
	}	
	print "\n************************\n";
}
close (LST);

##</code><code>##

sort{$a <=>comp <=> $b} #this is wron but it looks like something I have seen