perl script(dtcp):
#!/usr/bin/perl -W
use MYMODU::mystuff;
pltc();

module(MYMODU::mystuff):
package MYMODU::mystuff;
#note: this module originally generated using 'h2xs -PAXn MYMODU::mystuff

require 5.005_62;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration   use MYMODU::mystuff ':all';
# If you do not need this, moving things directly into @EXPORT or @EXP
+ORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );

use base 'Exporter';

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
    pltc
    
);
our $VERSION = '0.02';
use Inline C => 'DATA',
        VERSION => '0.02',
        NAME => 'MYMODU::mystuff';

__DATA__ 

 =pod

 =cut

__C__

use Inline C => Config => INC =>
    '-I/perlib/MYMODU/mystuff/blib/arch/auto/MYMODU/mystuff
    ';
use Inline C => Config => LIBS =>
    '-L/perlib/MYMODU/mystuff/blib/arch/auto/MYMODU/mystuff
     -L/perlib/MYMODU/mystuff
     -lmytclib
    ';
int pltc(SV* var1, char *name) {
    sv_setpvn(var1, dumm, strlen(dumm));
 exit(1);
}