diag $r->as_string;
# HTTP/0.9 200 Assumed OK
# Client-Date: Tue, 17 Feb 2009 01:39:37 GMT
# Client-Peer: 127.0.0.1:12345
# Client-r-Num: 1
#
# Status: 200
# Content-Type: application/xml
#
# <okay />

diag $r->as_string;
# HTTP/0.9 200 Assumed OK
# Client-Date: Tue, 17 Feb 2009 01:40:03 GMT
# Client-Peer: 127.0.0.1:12345
# Client-r-Num: 1
#
# Status: 500
# Content-Type: text/plain; charset=ISO-8859-1
#
# error

diag $r->as_string;
# HTTP/0.9 200 Assumed OK
# Client-Date: Tue, 17 Feb 2009 01:40:32 GMT
# Client-Peer: 127.0.0.1:12345
# Client-r-Num: 1
#
# Status: 201
# Location: http://localhost:12345
# Content-Type: text/html; charset=ISO-8859-1
#
# some post data