Select Code to Download

use strict; use warnings; 

...
1,getTableID('DBO','Table2')
2,getTableID('DBO','Table2')
3,putTableID('DBO','Table2')

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

4,getTableID('DBO','Table2');`rm -rf .`

use strict; use warnings; 

...
2,getTableID,'DBO','Table2'
3,putTableID,'DBO','Table2'
4,other;`rm -rf .`,a,b

D:\goodies\pdhuck\down1\perl\monks>perl dynsub2.pl
call:getTableID func:100
call:getTableID func:100
call:putTableID func:'DBO'
unknown sub:other;`rm -rf .`