Help for this page
if (($file ne ".") or ($file ne "..")) {
unless ( $file eq "." || $file eq ".." ) {
next if ( $file eq "." || $file eq ".." );