#!/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 $@;
}