##[ my_df.sh ]##
chdir ~
du -sk . * .* | perl -e ' ## ADDED .files
$sum=<>; 
while (<>)
{
	($size, $inode) =split;       
	$inode .= "/" if (-d $inode);  ## /_SHOW SIZE IN Kb + GRAPHIC: _\
	printf("%25s | %4d Kb |%6.2f%% [%+11s]\n",$inode,int($size/1024),$size/$sum*100,"<".("=" x (int($size/$sum*10)))) unless ($inode=~/\.\./);
## EVERY LINE LOOKS LIKE THIS: 
##        Documents/ |  710 Kb | 52.20% [     <=====]
}'| sort -rn -k 3 | head | xmessage -center -file -