use IO::Dir;
tie my %d, 'IO::Dir', '.', 1;