use LWP::Simple; use XML::Simple; my $xml = XMLin ( get 'http://www.dhs.gov/dhspublic/getAdvisoryCondition' ); print $xml->{CONDITION}, $/;