That's what I was looking for - much more direct!! Thanks very much.
Update: Unfortunately including it in the code prints a blank! It makes sense to me looking at it - what has gone wrong???
Update2:The inclusion of values in jethro's update effectively fixes the problem.
#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\n\n";
# use module
use XML::Simple;
use Data::Dumper;
use LWP::Simple;
my $url = 'http://wurfl.sourceforge.net/web_browsers_patch.xml';
my $content = get($url);
# create object
my $xml = new XML::Simple;
# read XML file
my $data = $xml->XMLin($content);
my @agents;
foreach my $browser ( %{$data->{devices}->{device}} ) {
push @agents, $browser->{user_agent};
}
print @agents;