How to ignore the single and double dot entries in Perl's readdir?

Question

Following up from here: Perl Imgsize not working in loop? I have another question - how do I not let perl list the single and double dot entries when it reads the files in a dir

Answer 1

this works and skips the first 2 . and ..

if($fil !~ m/^\.+/i)
  {
       your stuff here
  }