#! /usr/bin/perl
use strict;
use warnings;

# Pfade und Optionen der benutzten Tools
my %cmd = (
    tree    => '/usr/bin/tree -df',
    du      => '/usr/bin/du -sh'
);



# Hilfsroutine, um die Groesse des gegebenen Verzeichnisses zu ermitteln
sub add_size {
    my $dir = shift;

    if ( my $result = qx{ $cmd{du} $dir } ) {
        chomp $result;
        $result = join "    ", reverse( split( m{\s+}, $result, 2 ) );

        return $result . "\n";
    }
    else {
        warn "'$cmd{du} $dir' failed: $!\n";
        return $dir;
    }
}

for my $dir ( @ARGV ) {

    open my $pipe, '-|', "$cmd{tree} $dir"    or die "pipe to $cmd{tree} failed: $!\n";

    while ( my $line = <$pipe> ) {

        $line =~ s{(\Q$dir\E.+)\n}{add_size($1)}xe;
        print $line;
    }

    close $pipe;
}