5
(c-load-library "/System/Library/Perl/5.8.6/darwin-thread-multi-2level/CORE/libperl")
6
(c-include '("EXTERN.h" "perl.h") :include-dirs "/System/Library/Perl/5.8.6/darwin-thread-multi-2level/CORE")
8
(define perl (perl_alloc))
10
(perl_parse perl NULL 3 '("" "-e" "0") NULL)
13
(Perl_eval_pv perl "$var = 3; $var **=2;" TRUE)
14
(print (SvIVX (Perl_get_sv perl "var" FALSE)))