my ($case, $data) =(split /\s/, $input, 2;
  $case = lc($case);
  if (exists $handler{$case}) {
    $handler{$case}->($data);
  }
  else {
    do_default($input);
  }