http://www.perlmonks.org?node_id=483471


in reply to Re: Homeland Security Threat Level
in thread Homeland Security Threat Level

And since we're on the topic, I tender an algorithm I've been working day and night on for the last 4 years which I feel is a drastic improvement to the federal government's own byzantine system for determining the current threat level. I will apply for a patent over the weekend.

my @levels = qw( Low Guarded Elevated High Severe ); print "Current Alert Level: ", $levels[rand@levels], $/;