h2xs -A -n two_test

cd two_test

mkdir mylib

#include<stdio.h>

void chen(char *);

#include "chen.h"

void chen(char * name){

printf("input string is : %s\n", name);

}

gcc -c chen.c

ar -r libchen.a chen.o

cp libchen.a two_test/mylib/

cp chen.h two_test/mylib

use 5.014002;

use ExtUtils::MakeMaker;

# See lib/ExtUtils/MakeMaker.pm for details of how to influence

# the contents of the Makefile that is written.

WriteMakefile(

NAME => 'two_test',

VERSION_FROM => 'lib/two_test.pm', # finds $VERSION

PREREQ_PM => {}, # e.g., Module::Name => 1.1

($] >= 5.005 ? ## Add these new keywords supported since 5.005

(ABSTRACT_FROM => 'lib/two_test.pm', # retrieve abstract from module

AUTHOR => 'root <root@>') : ()),

LIBS => [''], # e.g., '-lm'

DEFINE => '', # e.g., '-DHAVE_SOMETHING'

INC => '-I.', # e.g., '-I. -I/usr/include/other'

# Un-comment this if you add C files to link with later:

# OBJECT => '$(O_FILES)', # link all the C files too

MYEXTLIB => 'mylib/libchen.a'

);

#include "EXTERN.h"

#include "perl.h"

#include "XSUB.h"

#include "ppport.h"

#include "mylib/chen.h"

MODULE = two_test PACKAGE = two_test

void

chen(name)

char * name

perl Makefile.PL

make

make install

#!/usr/bin/perl

use two_test;

$one = "sfjak";

&two_test::chen($one);

perl two_test.pl