my $coderef = \&{$testname};
$system = $coderef->($self, $system); #test