while (1)
 {
   if (-e "/my/dir/filename.dat")
    {
      do_something_now();
    }
 }

##</code><code>##

my $items_in_dir = @Dircontent;
if ($items_in_dir > 2) ..

##</code><code>##

if (scalar(@Dircontent) > 2) ..