my ($blocks_used) = (stat $filename)[12];