#!/usr/bin/perl

# Created on 01-Sep-2004 12:29:29

use strict;
use Tk;
use diagnostics;
...
...