You can still use formats even without named file handles.

The 'name' refered to when talking about formats is the name of the format itself -- you can declare a format (or a pair of formats since they're designed to have a seperate 'top' format for the beginings of pages) and then associate that format to any filehandle you 'select'

This should help get you started...

#!/usr/bin/perl
use warnings;
use strict;

sub doWrite {
    my ($fh, $label, $count, $text) = @_;
    format DO_WRITE_FORMAT =

@<<<<< @>>>> ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
$label,$count,$text 
~~           ^<<<<<<<<<<<<<<<<<<<<<<<<<<<
             $text
.
    select((select($fh),
        $~ = "DO_WRITE_FORMAT"
        )[0]);
    write $fh;
}

doWrite(\*STDOUT, "L1", 4567,
    "the quick brown fox jumped over the lazy fatass dog.");

doWrite(\*STDERR, "L222", 12,
    "the large bulky dog ate the snippetty hyperactive fox.");
[download]