BEGIN {
  require Tk;
  Tk->import;
}