#!/usr/bin/perl use strict; use LWP::Simple; my $level; my %colors = ( 'Unknown' => '#808080', 'Low' => '#63cf63', 'Guarded' => '#009aff', 'Elevated' => '#ffcf00', 'High' => '#ff6500', 'Severe' => '#ff0000', ); if(get('http://www.whitehouse.gov/president/') =~ /George W. Bush/i) { my @levels = ('Elevated', 'High', 'Severe'); $level = $levels[int(rand @levels)]; } else { $level = get('http://www.dhs.gov/dhspublic/getAdvisoryCondition'); $level =~ s/^.*CONDITION="([^"]+)".*$/\L\u$1/s; } print qq{Content-type: text/html

$level

};