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