grep default_severity /usr/local/share/perl/5.8.7/Perl/Critic/Policy/Variables/* | sed "s/^.*8.7//"
/Perl/Critic/Policy/Variables/ProhibitConditionalDeclarations.pm:sub default_severity { return $SEVERITY_HIGHEST }
/Perl/Critic/Policy/Variables/ProhibitLocalVars.pm:sub default_severity { return $SEVERITY_LOW }
/Perl/Critic/Policy/Variables/ProhibitMatchVars.pm:sub default_severity { return $SEVERITY_HIGH }
/Perl/Critic/Policy/Variables/ProhibitPackageVars.pm:sub default_severity { return $SEVERITY_MEDIUM }
/Perl/Critic/Policy/Variables/ProhibitPunctuationVars.pm:sub default_severity { return $SEVERITY_LOW }
/Perl/Critic/Policy/Variables/ProtectPrivateVars.pm:sub default_severity { return $SEVERITY_MEDIUM }
/Perl/Critic/Policy/Variables/RequireInitializationForLocalVars.pm:sub default_severity { return $SEVERITY_MEDIUM }