use strict;
use LWP::Simple;

my $doc = get 'http://192.168.4.1:9595/a/b/info';

open OUT,'>info.xml' or die "can't open info.xml - $!\n";

print OUT $doc;

close OUT;