Hi,

Use File::Find module to find the file in a directory.

@ARGV = 'c:/temp/';
use File::Find ();

sub find(&@)
{
     &File::Find::find
}

*name = *File::Find::name;

find
{
    if ((-f $name) && ($name=~m#^.+/\QFile.txt\E$#i))
    {
            print "\nFile.txt Found.\n\nExited !!!";
            exit;
    }
} @ARGV;
[download]

Thanks,

Gopal.R