The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

# Bug in 2.02 and earlier - the i_am_speedy method returns false when
# run from within a BEGIN block

use vars qw($i_am_speedy);
BEGIN {
    $i_am_speedy = defined($CGI::SpeedyCGI::i_am_speedy) &&
	eval {require CGI::SpeedyCGI} && CGI::SpeedyCGI->i_am_speedy;
}
print "$i_am_speedy";