*ORIGINAL_STDIN = \*STDIN ;
    
  tie *STDIN, 'Tie::Input::Insertable', *ORIGINAL_STDIN;
  
  print "> " ;
  while (<STDIN>) {
    print STDIN "Hello, world\n" if /foo/;
    print "\n# $_\n" ;
    print "> " ;
  }