Select Code to Download

package Output_Strategy::HTML;
package Output_Strategy::CSV;
...
$output_strategy->render(@data);
$output_strategy->postamble;
# whatever

package Foo;
use base 'Output_Strategy'; # this is a 'strategy handle class'
...
@Output_Strategy::ISA = ( $opt{'html'}
  ? 'Output_Strategy::HTML'
  : 'Output_Strategy::CSV' );