use Devel::Peek;
opendir DIR, '.' or die $1;
Dump(*DIR); # The IO slot has the dirhandle (I guess)