#!./perl
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
use Tk;

$top = tkinit;
$foo = "Hello world";
tkpack Button::new($top, "-text" => "append", "-method" => \&doappend),
       Message::new($top, "-width" => 150, "-textvariable" => $foo),
       "-fill" => "both", "-expand" => "y";
tkmainloop;

sub doappend {
    $foo .= " again";
}