Select Code to Download

#!/usr/bin/perl
use strict;
...
my $response = $browser->get('http://wrfl.uky.edu:9000/admin.cgi?mode=
+viewxml');
my $xml = $response->decoded_content;
print $xml;