package Tk::HList;

sub updaterow {
   ...
}

package main;