#!/usr/bin/perl

use File::DirWalk;
use warnings;
use strict;

# by John Musbach
# walks a directory using DirWalk module
# expects init dir as command line parameter

my $dirwalk=new File::DirWalk;
my $tabnum=0;
my $tabs="";

$dirwalk->onDirEnter(sub {
    $tabnum+=2;
    my $num_copy=$tabnum;
    while ($num_copy>0) {
        $tabs.="\t";
        $num_copy-=1;
    }
    print $tabs.$_[0]."\n"; #current directory
});

$dirwalk->onDirLeave(sub {
    $tabnum-=2;
    $tabs="";
});

$dirwalk->onFile(sub {
    print $tabs."\t\t".$_[0]."\n";
});

$dirwalk->walk($ARGV[0]);