path: root/Bugs/formatsub

#!./perl

format STDOUT {
    formline "@<<<<<<<<<<<<< @>>>>>>>>>>>\n", "foo", "bar";
}

write;