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], $/;
[download]