GUI Perl

use Tk;
$main = MainWindow->new();
$listbox1 = $main->Listbox("-width" => 25, 
    "-height" => 5
)->pack;