Select Code to Download

$pane = $mw->Scrolled("Pane", ...);
# add widget(s) to $pane here
$pane->pack;

#!/usr/bin/env perl

...
}

MainLoop;