package Foo;
use base 'Output_Strategy'; # this is a 'strategy handle class'

. . .

# set the inheritance path at run time:
@Output_Strategy::ISA = ( $opt{'html'}
  ? 'Output_Strategy::HTML'
  : 'Output_Strategy::CSV' );