#!/bin/sh
cat <<! > .gdbinit
break Perl_croak 
break Perl_warn
break Perl_die
run -Mblib $@
break XS_DynaLoader_dl_find_symbol
shared
!
gdb perl