-----------------------
print "enter subroutine name: ";
$subname = <STDIN>;

$subname() ????