#! perl -slw
use strict;
use Inline C => Config => BUILD_NOISY => 1;
use Inline C => <<'END_C',  NAME => 'scriptname', CLEAN_AFTER_BUILD => 0;

// XS code here
...

END_C

# perl code here
...