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