Yet Another CPAN Grep

Math-SimpleHisto-XS-CLI ( S/SM/SMUELLER/Math-SimpleHisto-XS-CLI-1.07.tar.gz, SMUELLER, 2012; MetaCPAN )

Math-SimpleHisto-XS-CLI/lib/Math/SimpleHisto/XS/CLI.pm ( view source; MetaCPAN )

t using this
  while (my $dump = <$fh>) {
    next if not $dump =~ /\S/;
    foreach my $type (qw(json yaml simple)) {
      eval {$tmphist = Math::SimpleHisto::XS->new_from_dump($type, $dump);};