Threat Warning One Liner

Any attempt at explaining why I wanted to do this will sound odd so for now I’ll just post the one liner…

perl -MLWP::Simple -e 'get("http://www.dhs.gov/") =~ /dhs-advisory-(\w+)\.gif/;print "Threat level is $1!\n";'

This gets the current threat level for the US and prints it to standard out.