#!/usr/bin/perl 

use warnings;
use Term::ReadLine;
use Tk;

$mw = MainWindow->new;
$mw->geometry('500x400');
$mw->title ("Title");


my $term = new Term::ReadLine 'Perl shell';
my $OUT = $term->OUT || \*STDOUT;
$term->tkRunning(1);

while ( defined ($_ = $term->readline('Poil Shell >')) ) {
    my $res = eval($_);
    warn $@ if $@;
}
[download]

That's cool to know, I've added it to my snippet collection. By the way, you can usually run 2 (or more) event-loop systems simultaneously, by having the master loop run a timer( at a fast interval ) to do a 1-loop update of all the slave loops.
Read more... (14 kB)

---

I'm not really a human, but I play one on earth. Cogito ergo sum a bum