Inline::ASM would be the best way I know.

#!/usr/src/perl -w
use strict;

use Inline ASM => 'DATA',
           AS  => 'as',
           PROTO => {sptr => 'unsigned long()'};

print 0 | sptr(),$/;

# ...

__END__
__ASM__
.text
.globl  sptr
sptr:   movl %esp,%eax
        ret
[download]

After Compline,
Zaxo

Thanx for your answer !

But I still hope for another solution,
as I said in my initial post, pure Perl or standard module based solutions
(if available) are most welcome !


"Only Bad Coders Code Badly In Perl" (OBC2BIP)