#!/usr/bin/perl

use Tk;

local(*Tk::m) = *Tk::Tk_module;
print "$Tk::m\n";

