1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/perl -w
use strict;

my $s = 
  returnSomething("nicey nicey\n");

print $s;

use Inline C=><<'_start';
    void sayHello(char* s) {
      printf("hgello universe %s", s);
    }

#include <stdio.h>

static void somethingElse(char* s);

void somethingElse(char * s) {
   printf(s);
}

char * returnSomething(char * s){
    return ("something...");
}
_start

1;