Select Code to Download

package Tie::Input::Insertable;

...
}

1;

use Tie::Input::Insertable;
tie *FOO, 'TIE::Input::Insertable', *STDIN;
...
  print FOO "Hello, world\n" if /foo/;
  print $_;
}