use strict;
use Tk;
use Win32::API;

my $mw = new MainWindow;
use vars qw/$Button/;

$mw->Frame(-width=>200, height =>25);
$mw->update;
  Win32::API->new("user32","SetWindowPos",[qw(N N N N N N
N)],'N')->Call(hex($mw->frame()),-1,0,0,0,0,3);


$Button=$mw->Button(-text => "Button",
	    -command => sub {
				&do_something;
			})
	    ->pack();


MainLoop;

sub do_something {

	#sleep(10);
}