use strict;
use warnings;
my $mydir = '//Infoserver/directory';
opendir(DIR, $mydir) || die "Can not open directory $mydir: $!"; 
my @files = map { $mydir."/".$_; } grep { !/^\.+$/ && -M "$mydir/$_" > 1; } readdir(DIR);
closedir DIR;

for my $file (@files){
  my $size = (stat($file))[7];
  next if ((-z $file) || ($size < 100));
  print "$file is $size\n";
  last;
}