Select Code to Download

package Base ;

...
    $step->do;
  }
}

my $base = Base->new( qw ( One Three Two ) );
$base->do;