Select Code to Download

33G     /data/A
37M     /data/B
...
114G    /data/F
148G    /data/G
169M    /data/H

my $file_dist="../data/disk_usage.dat.new.bkp";
##open the usage file
...
    $s=~s/^\s+//;
    return $s;
}