RosettaCodeData/Task/Call-a-foreign-language-function/Perl/call-a-foreign-language-function-2.pl

use Inline C => q{
    void c_hello (char *text) {
        char *copy = strdup(text);
        printf("Hello, %s!\n", copy);
        free(copy);
    }
};
c_hello 'world';