print STDERR "Called node 'foo'\n";

##</code><code>##

package noprint;
use Carp;

sub PRINT {
  my $msg = Carp::longmess("You must return rather than print");
  print "Content-type: text/plain\n\n$msg";
  die $msg;
}

*PRINTF = *PRINT;

sub TIEHANDLE {
  return bless ({}, shift);
}

##</code><code>##

tie(*NOPRINT, 'noprint');
select(NOPRINT);
# time passes while the page is built.
# Before spitting out the final page:
select(STDOUT);