Convert tied READLINE to using Perl_tied_method()