# In lib/MyCode/Form1.pm
  package MyCode::Form1;

  require "lib/MyCode/Form1.tkfrm";

  sub handle_button { ... }

  1;