#!/usr/bin/env perl
formline( "@<< @<< @<<", '1', '2', '2' );
write;