Thanks, NetWallah.

I had to slightly modify the syntax above - it should be just Accept => 'application/xml' - but the general idea worked. I am now getting the same XML back that my browser gets.

Regards,
pkupnorth

The modification should not have been necessary. The two are equivalent.

The "=>" operator auto-quotes the argument to its left, so the single-quotes I used are not strictly necessary, but it is a matter of style, and they should work fine.

Let me know what error you got when the quotes were in place.

        ...it is unhealthy to remain near things that are in the process of blowing up.     man page for WARP, by Larry Wall

NetWallah, here is the code with your suggestion as listed:

 use strict;
 use warnings;
 use LWP::UserAgent;
 use HTTP::Request::Common qw(GET);
 
 my $ua = LWP::UserAgent->new;
 my $endpoint = 'Http://www.somecompany.com:8081/api/ourCompany/getASN
+';
 my $req = HTTP::Request->new('GET',
                              'Accept' => 'application/xml');
 $req->url($endpoint);
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";
[download]

I get the error message "bad header argument at code.pl line 8." Which is the HTTP::Request->new line.




Here is the working code with the slight modifications:

 use strict;
 use warnings;
 use LWP::UserAgent;
 use HTTP::Request::Common qw(GET);
 use XML::Simple;
 
 my $ua = LWP::UserAgent->new;
 my $endpoint = 'Http://www.somecompany.com:8081/api/ourCompany/getASN
+';
 my $req = HTTP::Request->new(GET => $endpoint);
 $req->header(Accept => 'application/xml');
 $req->url($endpoint);
 my $resp = $ua->request($req);
 my $message = $resp->content;
 print "printing message: $message\n\n";
[download]

Thanks,
pkupnorth