1package TieOut; 2use overload '"' => sub { "overloaded!" }; 3 4sub TIEHANDLE { 5 my $class = shift; 6 bless(\( my $ref), $class); 7} 8 9sub PRINT { 10 my $self = shift; 11 $$self .= join('', @_); 12} 13 14sub read { 15 my $self = shift; 16 return substr($$self, 0, length($$self), ''); 17} 18 191; 20 21