1 2 3 4 5 6 7
#!./perl format STDOUT { formline "@<<<<<<<<<<<<< @>>>>>>>>>>>\n", "foo", "bar"; } write;