Select Code to Download

use strict;
my $SubroutName='test';
...
    print "\nokey!";
}

Can't use string ("test") as a subroutine ref while "strict refs" in u
+se at 1.p
l line 4.