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

##</code><code>##

Parameters. If YESNO is true, decoding is done. However, you will get 
a warning unless you use one of the special "true" values: 

   "I_NEED_TO_FIX_THIS"
          Just shut up and do it.  Not recommended.
          Provided only for those who need to keep old scripts 
          functioning.

   "I_KNOW_WHAT_I_AM_DOING"
          Just shut up and do it.  Not recommended.
          Provided for those who REALLY know what they are doing.