my $mydir = "C:/Perl/bin/newr";

##</code><code>##

 use strict;
my $mydir = "//Infoserver/directory";
opendir(DIR, $mydir) || die "Can not open directory $mydir: $!\n"; 

while (my $file = readdir(DIR))
{
   if ($file !~ /^\.+$/ && -M $mydir . '/' . $file > 1)
   
   {
   
         my $size = ((stat($file)) [7]);  
		next if ((-z $file) || ($size < 100));
   
		 print "$file is $size\n";
        last;  #only give me one
		}
  
}
closedir(DIR);