#!/usr/local/bin/perl -w
use Tk;
use strict;

my $mw = MainWindow->new();

my $button = $mw->Button();
$button->configure(-text => 'DISCONNECTED',
                   -command => sub { do_connect($button) });
$button->pack();

MainLoop();


sub do_connect {
        my $button = shift;
        $button->configure(-text => 'CONNECTED');
}