#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = MainWindow->new( -bg => 'black' );
$mw->geometry('150x30+10+15');

#select default case matching 
my $case = 1; #or 0 for nocase default 

my $casesw = $mw->Checkbutton(
    -selectcolor=>'green',
    -text=>'Match Case',
    -offvalue=> 0,
    -onvalue=> 1,
    -variable=>\$case,
);

$casesw->pack(-side=>'right', -fill => 'x',-expand=>1 );

MainLoop;
[download]