Select Code to Download

sub Combobox1action {
    my( $frame, $comboevent ) = @_;
...
    my $selection = $comboevent->GetString;
    $frame->SetTitle( "Combo box selected ($selection)" );
}

#!/usr/bin/perl --
##
...


__END__