X环境中terminal标题自动显示磁盘使用情况

平时喜欢下载，但是却硬盘小的可怜。经常下着下着，硬盘就满了。
思来想去，写下这个小脚本。
用法：于.bashrc中启动，这样每次启动一个X下的终端程序，比如我用的Xterm，标题栏就可以随时显示磁盘的使用情况了。
程序如下：

#!/usr/bin/perl -w

use strict;
$ | ++; #非常关键，实现功能最重要的一句

while(1){
 my @df = `df`;
 my @dfus;
 my $str;

$str .= "\033]0;";
 $str .= "Disk Usage: ";
 shift(@df);
 # 这里的循环，可以不用，而是根据需要换成只显示一个挂载点的情况
 foreach my $item (@df) {
 @dfus = split(" ", $item);
 $str .= "$dfus[5]($dfus[4]) "; #dfus[5]为挂载点，可以改为其它值，如自己喜欢的易读懂的名字，dfus[4]为使用率 */
 }
 $str .= "\007";

print $str;

sleep 60; #刷新时间间隔，这里定义每隔60秒刷新一次
}

写完后，保存成一个脚本文件，写在.bashrc中，完事大吉。哈哈！