1package TieIn; 2 3sub TIEHANDLE { 4 bless( \(my $scalar), $_[0]); 5} 6 7sub write { 8 my $self = shift; 9 $$self .= join '', @_; 10} 11 12sub READLINE { 13 my $self = shift; 14 $$self =~ s/^(.*\n?)//; 15 return $1; 16} 17 18sub EOF { 19 my $self = shift; 20 return !length $$self; 21} 22 231; 24