$ perl -le " use Data::Dump; use Path::Class; dd( dir( ) );
bless({ dirs => ["."], file_spec_class => undef, volume => "" }, "Path::Class::Dir")