Just another implementation... sub are_there_files { $i = 0; @files = glob (\this\directory\*.*"); foreach $files (@files) { $i++; } if ($i > 0) { $dirvalue = 1; } else { $dirvalue = 0; return; }