Select Code to Download

my $sClass = derive_class($foo);
my $oWhatWasOnceASwitchStatementCase = $sClass->new();
$oWhatWasOnceASwitchStatementCase->frobnicate();

use strict;
use warnings;
...
    print "I'm doing B\n";
  }
}