use Tk;
use strict;

sub doHello()
{
    system('dir');
}

my $top = new MainWindow;

my $button = $top->Button(-text => 'Hello World', -command => \&doHello);

$button->pack();

MainLoop;