#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $dirth = &dirTreeHash(shift);

sub dirTreeHash {
  my $dir = shift;
  return unless (defined $dir && -d $dir);
  $dir =~ s#\\#/#g;    # Win32 :-(
  my $dirth = {};

  opendir(DIR, $dir) || die "Unable to opendir $dir\n";
  my @files = grep {!/^\.\.?$/} readdir(DIR);
  closedir(DIR);
  map {$dirth->{$_} = (-d "$dir/$_" ? &dirTreeHash("$dir/$_") : '')} @files;

  return $dirth;

}

 $Data::Dumper::Indent = 1;
 print Dumper $dirth;