print STDERR Dump([q[BaseDirectorySpec]=> $listing]); print STDERR Data::Dumper->Dump([$listing],[q/BaseDirectorySpec/]);