1package TieOut; 2 3sub TIEHANDLE { 4 bless( \(my $scalar), $_[0]); 5} 6 7sub PRINT { 8 my $self = shift; 9 $$self .= join('', @_); 10} 11 12sub PRINTF { 13 my $self = shift; 14 my $fmt = shift; 15 $$self .= sprintf $fmt, @_; 16} 17 18sub read { 19 my $self = shift; 20 return substr($$self, 0, length($$self), ''); 21} 22 231; 24