my $snmp_version1 = $right_frame->Checkbutton(
        -text	     => 'SNMPv1',
	-indicatoron => 'false',
	-selectcolor => 'green',
	-command     => sub {$version = 1;},
    );
    $snmp_version1->pack(-padx => 5, -pady => 5,-anchor => 'w');
    &BIND_MESSAGE($snmp_version1, "Send SNMP version 1 Traps");
	
    my $snmp_version2 = $right_frame->Checkbutton(
	-text	     => 'SNMPv2',
	-indicatoron => 'false',
	-selectcolor => 'green',
	-command     => sub {$version = 2;
			     $snmp_version1->{'normal'}},
    );
    $snmp_version2->pack(-padx => 5, -pady => 5,-anchor => 'w');
    &BIND_MESSAGE($snmp_version2, "Send SNMP version 2 Traps");