# Note that he could have simply closed STDERR here,
 # rather than select it, then close it. Spiffy use though!
 CHECK {
  select STDERR;
  $_ = join " ", qw(Just Another Perl Hacker);
  close STDERR;
  select STDOUT;
  print && die;
 }