Perl and Inline::C

#!/usr/bin/perl
use warnings;
use strict;
use Inline C => <<'__END_C__';

void ehlo_linux() {
  printf("Ehlo Linux!\n");
}

__END_C__

use Inline C => <<'__END_C__';

void ehlo_no() {
  printf("Ehlo Again!\n");
}
__END_C__

use Filter::cpp;

#ifdef __linux__
ehlo_linux;
#else
ehlo_no;
#endif