#!/usr/bin/perl

use warnings;
use strict;
use Tk;

my $window = MainWindow->new;
    $window ->update();
    
    my $checkbutton=$window->Checkbutton(-text=>"Checkbutton1",
    -anchor=>'w')->pack();

    
    
 MainLoop;