opendir(DIR, $mydir);
my @files = readdir(DIR);
closedir(DIR);

foreach (@files)
{
	next if( -d $_ );

##</code><code>##

opendir(DIR, $mydir);
my @files = readdir(DIR);
closedir(DIR);

foreach (@files)
{
	next if( -d $mydir."/$_" );