My original solution was sort of over kill, this one is much better and simpler:

use Tk;
use Tk::DialogBox;

my $mw = new MainWindow();
my $content;
my $text = $mw->Text()->pack();
my $ok = $mw->Button(-text => "OK", -command => \&grab)->pack();
MainLoop;
print $content;

sub grab {
    $content = $text->Contents();
    $mw->destroy();
}
[download]

Yep, that's pretty good! I had a hazy idea that something like that was required, but I don't know enough Tk yet to figure it out in reasonable time. I find the doucmentation for Tk a bit heavy going and diffuse at the same time.

Thanks for a good solution.

---

Perl is Huffman encoded by design.