my ($blocks_used) = (stat $filename)[12]; [download]
In reply to Re: Usage of a sparse file by Anonymous Monk in thread Usage of a sparse file by mishikal