aboutsummaryrefslogtreecommitdiff
path: root/challenge-029/dave-cross/perl5/ch-2.pl
blob: 3b697121055af3526d43a74d3b5e5531bee8cfed (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!/usr/bin/perl

use strict;
use warnings;

use Inline C => <<'END_OF_C';

void hello(char* name) {
  printf("Hello, %s\n", name);
}

END_OF_C

my $name = shift || 'Perl';

hello($name);