Select Code to Download

#!/usr/bin/perl -w

...
    my $lbl = $top->Label(-bg => 'skyblue', -text => "Text Widget")->p
+ack();
    my $txt = $top->Text(-height => 16, -width => 120)->pack();
}

$poe_main_window->bind($poe_main_window, '<c>', sub{ $button->invoke }
+ );