D:\goodies\pdhuck\down1\perl\monks>perl dynsub.pl
&getTableID('DBO','Table2')
func:100
&getTableID('DBO','Table2')
func:100
&putTableID('DBO','Table2')
Error:Undefined subroutine &main::putTableID called at (eval 3) line 1, <DATA> line 3.