view release on metacpan or  search on metacpan

t/terrortest.pl  view on Meta::CPAN

#!/usr/bin/perl

use Acme::Terror;
my $t = Acme::Terror->new();

my $level = $t->fetch;

print "Current terror alert level is: $level\n";