Select Code to Download

total 24
drwxrwxr-x   2 jrs jrs  4096 Jun 13 08:14 .
drwx------  80 jrs jrs 12288 Jun 12 19:54 ..
-rw-rw-r--   1 jrs jrs   756 Jun 13 08:07 main.c
-rw-rw-r--   1 jrs jrs   127 Jun 13 08:14 test.pl

#!/usr/bin/perl -w
 
...
    my $rev = reverse $string;
    return $rev;
}

#include <stdio.h>
#include <EXTERN.h>
...
    perl_free(my_perl);
    PERL_SYS_TERM();
}