@a = stat "a";
print "Real size = $a[7]\n";
print "blocksize * blocknum = ",$a[11]*$a[12],"\n";

##</code><code>##

size = 4
blocksize * blocknum =  32768