#!/usr/bin/perl -w
use strict;
use File::Find;
my @files = ();

&find(\&wanted,'E:\Common\Intranet');

sub wanted { if (!/\./) { push(@files,$_); } }  
#if you actually wanna look for files with no period in it
#Do something with @files