package Tk::HList; sub updaterow { ... } package main; #### { package Tk::HList; sub updaterow { ... } }