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

SV *hexDump( UV in ) {
    int i;
    char *p = (char*)&in;
    SV *out = newSVpvn( "?", 1 );

    for( i=0; i<8; ++i ) {
        sv_catpvf( out, "%02x", p[i] );
    }
    return out;
}

END_C

print hexDump( 72623859790382856 );

__END__
C:\test>endian
?0807060504030201