script in c

1#!/usr/bin/perl
2use Inline C;
3$arg = $ARGV[0];
4$arg = tr/[a-z]/[A-Z]/; # modification du paramètre
5exit main0($arg);
6__END__
7__C__
8#include <stdio.h>
9
10int main0(char *arg1)
11{
12   printf("Hello %s \n",arg1);
13   return 0;
14}
15

1#!/usr/bin/perl
2use Inline C;
3exit main0();
4__END__
5__C__
6#include <stdio.h>
7
8int main0()
9{
10   printf("Hello world !\n");
11   return 0;
12}
13

1$ chmod +x test1.c
2$ ./test1.c
3> Hello world !
4