Just a minor nit, your test window opens too small, and it dosn't close with WindowManager controls. Add

$mainwindow->signal_connect( destroy => sub { Gtk2->main_quit; } );
$mainwindow->set_size_request(500,500);
[download]