#!/usr/bin/perl
use Inline C;
$arg = $ARGV[0];
$arg = tr/[a-z]/[A-Z]/; # modification du paramètre
exit main0($arg);
__END__
__C__
#include 

int main0(char *arg1)
{
   printf("Hello %s \n",arg1);
   return 0;
}