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