package MyConfig;

use strict;
use Exporter;
use vars qw(@ISA @EXPORT $var);

@ISA = qw(Exporter);
@EXPORT = qw($var);

$var = "SOME_FOO";

1;

##</code><code>##

#!/usr/bin/perl -w

use strict;
use MyConfig;

printf(">%s<\n",$MyConfig::var);

##</code><code>##

#include <stdio.h>
#include <stdlib.h>
#include <EXTERN.h>
#include <perl.h>

static PerlInterpreter *my_perl;

int main(void) {
  char *var;

  my_perl = perl_alloc();
  perl_construct(my_perl);

  var = SvPV_nolen(get_sv("MyConfig::var", TRUE));

  printf(">%s<\n", var);

  return(EXIT_SUCCESS);
}

##</code><code>##

PERL_CCOPTS = `perl -MExtUtils::Embed -e ccopts`
PERL_LDOPTS = `perl -MExtUtils::Embed -e ldopts`

all:
        gcc -g -o read_config.o -c read_config.c $(PERL_CCOPTS)
        gcc -g -o read_config read_config.o $(PERL_LDOPTS)