use Tk::MMutil; Tk::MMutil::TkExtMakefile( 'dynamic_ptk' => 1 );