#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use Tk;

$top=MainWindow->new();

$top->Checkbutton(-text => "Check me", 
                  -command => \&callback,
                  -variable => \$checkvalue,
                  -onvalue => "ON", 
                  -offvalue => "OFF")->pack();
MainLoop;

sub callback {
    print "Checkbutton is $checkvalue\n";
}