#!/usr/bin/perl -w # Copyright 1999 Brian Ristuccia # tk-client for anap network # use Tk;