use Prima qw(Application Label InputLine);

my $main = Prima::MainWindow->create(
    text => 'Configuration',
    backColor => cl::White,
    menuItems =>
    [   ['~File' => [['~Quit' => 'Ctrl+Q', '^Q',
                   sub { $::application->close } ], ],
     ],
    ]
);

my $fps = $main->insert(
    Widget =>
    pack => { side => 'top' },
);
$fps->insert(
    Label =>
    text => 'Refresh rate: ',
    width => 200,
    pack => { side => 'left' },
);
$fps->insert(
    InputLine =>
    text => '60',
    width => 100,
    pack => { side => 'left' },
);
$fps->insert(
    Label =>
    text => 'FPS',
    width => 50,
    pack => { side => 'left' },
);

my $res = $main->insert(
    Widget =>
    pack => { side => 'top' },
);
$res->insert(
    Label =>
    text => "Spectral resolution",
    width => 200,
    pack => { side => 'left' },
);
$res->insert(
    InputLine =>
    text => '10',
    width => 100,
    pack => { side => 'left' },
);
$res->insert(
    Label =>
    text => 'Hz',
    width => 50,
    pack => { side => 'left' },
);

my $limit = $main->insert(
    Widget =>
    pack => { side => 'top' },
);
$limit->insert(
    Label =>
    text => "Show spectrum up to",
    width => 200,
    pack => { side => 'left' },
);
$limit->insert(
    InputLine =>
    text => '5000',
    width => 100,
    pack => { side => 'left' },
);
$limit->insert(
    Label =>
    text => 'Hz',
    width => 50,
    pack => { side => 'left' },
);

Prima->run;