Select Code to Download

use Filesys::Df;

...
    next if $df->{used} < 0 or 0 == $df->{user_blocks};
    push @df, [ $filesys, $df->{used} / $df->{user_blocks}, $df->{bava
+il}*1024 ];
}