sub allocate {
  my $self = shift;
  #my $load_package = ucfirst($self->get_cmd);
  my $load_package = 'Show';

  #require Form::Show;
  #Form::Show->new($self->get_parameters);

  eval { 
    "use Form::" .$load_package;
    "Form::$load_package" ->new($self->get_parameters);
  };
 die("[DIE] $@") if $@;
}#sub allocate