if($file ne '.' and $file ne '..' and ! (-d $dir.$file)){
##code
}