use Tie::Dir;
    tie %hash, Tie::Dir, "./";