print $fh EXPR;