#!/usr/bin/perl
use strict;
use warnings;
use Inline C => <<'END_OF_C';
void greet(char *name) {
    printf("hello, %s!\n", name);
}
END_OF_C

print "name: ";
chomp( my $name = <STDIN> );
greet $name;