use strict;
use warnings;
use Tk;

my $mw = new MainWindow(-background=>'Gray');
my $btn = $mw->Button(
		-text    => "Exit",
		-command => sub {  print "Button pressed\n"; } )->pack(); 
MainLoop;