Written as a Bourne Shell-Script that invokes a Perl one-liner: LC_ALL=C df -kPT | perl -ane ‘!/(^Filesystem|tmpfs)/ && do { printf(“%-33s: %s\n”, $F[0], “*” x int((`tput cols`-35) * $F[3] / $F[2])) }’