The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Inline 'SLang' => Config => BIND_NS => [ "Global", "foo=bar" ];
use Inline 'SLang' => <<'EOS1';
  define fn_in_global(x) { "in global"; }
  implements( "foo" );
  define fn_in_foo(x) { "in foo"; }
EOS1

printf "I am %s\n", bar::fn_in_foo("dummyval");
printf "I am %s\n", fn_in_global("dummyval");