Select Code to Download

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

package noprint;
use Carp;
...
sub TIEHANDLE {
  return bless ({}, shift);
}

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