# 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, @_)); }