foreach ( readdir PRINT ) {
   next if ( ( $_ eq '.' ) or ( $_ eq '..' ) );
# or, alternately ...
   next if /^..?$/;
}