...
my $method = $dispatch{ $command };
$self->$method( );
...

##</code><code>##

my $method = $self->can( $dispatch( $command ) );
unless( defined $method ) {
  warn "I don't understand `$command'\n";
  return;
}
$self->$method( );