my $SUPERCOOL; BEGIN { if ( ($] ge '5.010') && eval("use Super::Cool::Module; 1") ) { $SUPERCOOL = 2 } elsif ( ($] lt '5.010') && ($] ge '5.008') && eval("use Almost::Cool::Module; 1") ) { $SUPERCOOL = 1 } else { $SUPERCOOL = 0 } }