@status = stat(STDIN);
$size=$stat[7]

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------