if ($opt_g) {
   use Tk;
   <Tk code>
}