Checking for undef after performing get()

[sawtooth]

Greetings honorable Monks. I am submitting some information directly from one Perl program located on a local client to another Perl program located on a web server. I need to verify that this information was successfully passed to the Perl program located on a web server. The code works and submits information successfully to the web server, but I have been unable to verify this from the client side program. Example snippet of the functioning code:

use strict;
use LWP::Simple;
use URI::URL;

my $url=url('http://www.webaddress.com/cgi-bin/XXX.pl');
      $url->query_form(
          name => $name,
          address => $address,
          email => $email,
          reading => $reading,      
          );
      get($url);

This submits the information and everything works fine on the web server the way that it should. Now, the LWP::Simple docs say that the get() function returns undef if it fails. I have been unable to find a combination of code that works. Among them, after the above snippet:

if (!defined (get($url))){ print"Failed: $^E\n}

Does not work. I am sure that this is simple, however, this is my first voyage into the land of libwww-perl. Please and thank you!

[trammell]

get() doesn't set $!, so your "bad file descriptor" error message is a red herring.

[sawtooth]

That doesn't surprise me, but any ideas regarding the question itself?

[trammell]

Sure; I'd do something like:

my $doc = get(...);
warn "get() failed" unless $doc;

I'm assuming that the page actually has content here. If it's an empty string, the test should be

... unless defined($doc);

The documenation in LWP::Simple does suggest using LWP::UserAgent if you need more information about the return code. Just a thought.