$error or print $data while $data = <input>;