$mw->Button(
  -text => 'func',
  -command =>  sub { test($jcb->getSelectedValue($jcb->getSelectedIndex())) } ,
)->pack;

$mw->Button(
  -text => 'embed',
  -command =>  sub { my $p1 = $jcb->getSelectedIndex(); printf("e: \$p1 = >>$p1<<\n"); } 
)->pack;