$ perl -e 'print sprintf( "%s%s",
> "header" . "\n",
> sub { return 3});
> '
header
CODE(0x6000684c8)