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

{
    package Foo;
    sub new { bless ["world", "Hello"] }
    sub foo {
	my $obj = $_[0];
	printf("%s %s\n", @$obj[1,0]);
    }
}

$top = tkinit("server");
wm("withdraw", $top);
tkmainloop;