chomp( my $path = `cd` );
opendir MYDIR, $path
   or die("Can't open dir $path: $!\n");