You are looking at a very old, but free version of the course. If you are interesed the most recent version, check it out on the Perl Maven site.

15.5. A du like script

Example 15-4. examples/applications/du.pl

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

use Filesys::DiskUsage qw(du);

my %sizes = du({'make-hash' => 1}, @ARGV);
foreach my $entry (sort { $sizes{$a} <=> $sizes{$b} } keys %sizes) {
    print "$entry => $sizes{$entry}\n";
}

If you are interested in on-site trainings by the author, please contact me directly.