The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use ExtUtils::MakeMaker;

my $file = 'c2xs';

open RD, '<', 'script.in' or die "Can't open script.in for reading: $!";
open OUT, '>', $file or die "Can't open $file for writing: $!";

print OUT <<"!GROK!THIS!";
$Config::Config{'startperl'}
    eval 'exec perl -S \$0 "\$@"'
        if 0;
!GROK!THIS!

while(<RD>) { print OUT $_ }

close RD or die "Can't close script.in after reading: $!";
close OUT or die "Can't close $file after writing: $!";

chmod 0555, $file;

my $twv = $] > 5.013 ? 0.23 : 0.21; # Test::Warn version
$twv = 0.24 if $] > 5.015;

my %options =
  (
  NAME     => 'InlineX::C2XS',
  PREREQ_PM => {
                'Inline::C'  => 0.47,
                'Test::Warn' => $twv,
               },
  VERSION_FROM => 'C2XS.pm',


  EXE_FILES => [$file],
  clean => {FILES => '_Inline_test c2xs exports.pm exports.xs'},
  );

WriteMakefile(%options);