sub foo {

  print $_[0]->header,
    $_[1]->output;
}