use Inline C => DATA => NAME => 'inline_code_pl_2d59'; if ( $^O eq 'MSWin32' ) { # Do nothing } #### BEGIN { if ( $^O eq 'MSWin32' ) { # Option A require Inline; Inline->import( C => DATA => NAME => 'inline_code_pl_2d59' ); # Option B eval "use Inline C => DATA => NAME => 'inline_code_pl_2d59'"; die $@ if $@; # Option B with line numbers that make sense if die() happens eval "#line " . ( 1 + __LINE __ ) . " \"" . __FILE __ . "\"\n" . "use Inline C => DATA => NAME => 'inline_code_pl_2d59'"; die $@ if $@; } }