gdb /usr/bin/perl core

##</code><code>##

ulimit -c 10000000