if(scalar( grep { /^$infile$/i } readdir<$dirname>) > 1)
    {
     raise_a_flag();
    }