print $fh ~~EXPR;