if (defined $body) {
    print "$body";
}
else {
    # try it with LWP::UserAgent to see headers
}