my $entry = $frame->Entry(-textvariable=>\$time)->pack;