Re: Homeland Security Threat Level

[Your Mother]

++ to b10m and a different grab, just for fun.

use LWP::Simple;
use XML::Simple;

my $xml = XMLin
    ( get

      'http://www.dhs.gov/dhspublic/getAdvisoryCondition' );

print $xml->{CONDITION}, $/;