arto 
Inline::Struct  - то что надо, Большое спасибо.
Возникла проблема при использовании:
Скрипт из примера:
#!c:/usr/local/bin/perl -w
use Inline C;
   my $o = new Inline::Struct::JA_H("Perl");
   print JAxH($o), "\\n";
   $o->x("Inline");
   print JAxH($o), "\\n";
   __END__
   __C__
   struct JA_H {
      char *x;
   };
   typedef struct JA_H JA_H;
   SV *JAxH(JA_H *f) {
      return newSVpvf("Just Another %s Hacker", f->x);
   }
Но при запуске выдает ошибки:
Warning. No Inline C functions bound to Perl
Check your C function definition(s) for Inline compatibility
"nmake" _¥ ï¥âáï ¢_ãâà¥__¥© ¨«¨ ¢_¥è_¥©
ª®¬__¤®©, ¨á¯®«_塞®© ¯à®£à_¬¬®© ¨«¨ ¯_ª¥â_ë¬ ä_©«®¬.
A problem was encountered while attempting to compile and install your Inline
C code. The command that failed was:
  nmake > out.make 2>&1
The build directory was:
C:\\DOCUME~1\\ROOT~1.API\\LOCALS~1\\Temp\\_Inline\\build\\perltemp_pl_0236
To debug the problem, cd to the build directory, and inspect the output files.
INIT failed--call queue aborted
Почему???
Система: MS Windows XP SP2, perl 5.6.1 build 633 by ActiveState