Select Code to Download

Tk::Error: Not an ARRAY reference at ./tagMenu.pl line 32, <DATA> chun
+k 20.
 [\&main::addToTable,10/10/2002,1,[[(790)555-5555,,],[,,],[,,],[,,],[,
+,],[,,],[,,],[,,],[,,],[,,]],{}]
 (menu invoke)

#!/cygdrive/c/PERL/BIN/perl -w

...
Blah blah ummmm .... blah balh balh
stinky dinky 10/12/1999 poo
kdsjflkjf saklfjadlkfj sdkfjaslf askfjsalf