Fixed a bug that the script stopped by Net::HTTPOK
Added is_reply()