scalar <$fh>;
scalar readline $fh;