my $coderef = eval "sub{$code}" or die "Error in code: $@";

$coderef->(); # execute the code