use Inline with => 'MyScriptInline';
BEGIN {
  $inline_code_file = abs_path($INC{__PACKAGE__ . ".pm"});
}

sub find_code {
  local $_ = shift;
  s/^.*?__CPP__\n//s;
  return $_;
}
use Inline(CPP => $inline_code_file, FILTERS => \&find_code);
Inline->init;