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() { 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);