Select Code to Download

use MyIO::Handle ();
my $io = MyIO::Handle->new(); # ISA IO::Handle
...

my $line = <$io>;
print $io "You said $line";