use strict;
my $SubroutName='test';
my $text='abcdefgijkl';
&$SubroutName($text);

sub test{
	print "\nokey!";
}
sub test1{
	print "\nokey!";
}
sub test2{
	print "\nokey!";
}


##</code><code>##

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