use Inline 'SLang' => '
  % this is S-Lang
  define add      (a,b) { return a + b; }
  define subtract (a,b) { return a - b; }
  message("I have just defined two S-Lang functions");
';

# and this is Perl
print "And now to use them from Perl\n";
print "  9 + 16 = ", add(9,16), "\n";
print "  9 - 16 = ", subtract(9,16), "\n";