#! perl -slw use strict; use Inline C => Config => BUILD_NOISY => 1; use Inline C => <<'END_C', NAME => 'junk1_IC', CLEAN_AFTER_BUILD => 0; int osrand( SV *seed ) { srand( (unsigned int)SvIV( seed ) ); return 1; } double orand( SV *max ) { return (double)rand() / 32767.0 * SvNV( max ); } END_C osrand( 555 ); print int orand( 1000 );