#!/usr/bin/perl 

use strict;
use warnings;
use XML::Simple qw(:strict);
use Data::Dump::Streamer;
use LWP::Simple;

print "Content-type: text/xml\n\n"; 

my $user = $ENV{'HTTP_USER_AGENT'};
$user = lc $user;

my $url = 'http://wurfl.sourceforge.net/web_browsers_patch.xml';
my $xml = XML::Simple->new;
my $content = get($url);
my $data = $xml->XMLin( $content,
                        forcearray => ['generic'],
                        keyattr    => [ 'web_browsers']);
print Dump($data);