skrip dalam c
#!/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 <stdio.h>
int main0(char *arg1)
{
printf("Hello %s \n",arg1);
return 0;
}
Friendly Flatworm