Here's a chance to show off your extensive knowledge of perl arcana and your vast experience debugging barbarous code. The task for this hole is simply to segfault the latest stable version of Perl (v5.6.1) in the fewest number of characters, given the following rules:

Your code must segfault at least one platform.

There's a two stroke penalty for every platform that doesn't segfault.

NO -u or dump

permitted.

NO fork bombs or other resource-depleting methods.

Use of any feature marked "experimental" in the perl docs gets a 5 stroke handicap. Sorry, japhy ;)

Sorry, there is another two stroke penalty. It doesn't work on MacPerl! And by "doesn't work" i mean it does work. And by "does work" I mean "doesn't work". Just to clarify it doesn't crash MacPerl, but MacPerl does kick me when I try to run it! Good code though. And by "Good Code" ... :)

<tsm:rylesl>|/home/rylesl > perl -e'read A,A'
Not enough arguments for read at -e line 1, at EOF
Execution of -e aborted due to compilation errors.
<tsm:rylesl>|/home/rylesl > perl -v
This is perl, v5.6.1 built for aix

C:\scripts>perl -e"read A,A"
Can't modify constant item in read at -e line 1, at EOF
Not enough arguments for read at -e line 1, at EOF
Execution of -e aborted due to compilation errors.
C:\scripts>perl -v
This is perl, v5.6.1 built for MSWin32-x86-multi-thread

When putting a smiley right before a closing parenthesis, do you:

Use two parentheses: (Like this: :) )
Use one parenthesis: (Like this: :)
Reverse direction of the smiley: (Like this: (: )
Use angle/square brackets instead of parentheses
Use C-style commenting to set the smiley off from the closing parenthesis
Make the smiley a dunce: (:>
I disapprove of emoticons
Other