perl -le 'opendir my $d, "."; print ref $d'