my $original;
{
  local $/;
  $original = <STDIN>; # slurp 
}
die "Ah darn it! Nothing in original!" unless $original;
my $entity = $parser->parse_data($original);