#!/usr/bin/perl

use Tk;
my $mw = MainWindow -> new;
my $ck = $mw -> Checkbutton(
    -activebackground => 'gray',
    -activeforeground => 'black',
    -background => 'gray',
    -foreground => 'black',
    -text => 'Tic me',
)->pack;

MainLoop;