#!/usr/bin/perl -w
use strict;

use Term::ReadLine;
# presuming Term::ReadLine::Gnu is present...

my $term = new Term::ReadLine 'ReadLine test';
my $prompt = "type: "; 
$term->bind_key('61', \&insertxt);

while (1) {
        my $input=$term->readline($prompt);
}

sub insertxt {
        $term->insert_text("hello!");
}