Here two functions I use myself in one my module:

# formated output
sub sformat {
    my $format = shift;
    local $^A = '';
    formline($format, @_);
    return $^A;
}

# print line using some format specification
sub fprint {
    my $format = shift;
    $self->print(sformat($format, @_));
}
[download]

--
Ilya Martynov (http://martynov.org/)