opendir MYDIR, '.'
   or die("Can't open current dir: $!\n");