package TwoWayHandle;

sub TIEHANDLE {
  my ($class, $in, $out) = @_;
  bless [ \$in, \$out ], $class;
}

sub PRINT {
  my $self = shift;
  local *FH = ${ $self->[1] };
  print FH @_;
}

sub READLINE {
  my $self = shift;
  local *FH = ${ $self->[0] };
  <FH>;
}

1;