my $header = peek(<>);

   if (is_xml ($header)) {
      my $t = XML::Twig->new();
      $t->parse (\*STDIN);
   }
   else {
      # do something else with <>
   }