use Inline C;

$name = $ARGV[0];
die "Usage: perl hello_someone.pl name\n" unless $name;
    
hello_world($name)

__END__
__C__
void hello_world(char *s) {
	printf("Hello %s\n", s);
}
