my $main = tkinit;