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