#!/usr/local/bin/perl -w
package Tk;
use Tk::Trace;

package main;
use Tk;
use Tk::Gauge;
use strict;
use warnings;
......
.......