#!/bin/sh
cat <<! > .gdbinit
break XS_DynaLoader_dl_find_symbol
run -Mblib $1
shared
break croak 
break warn
break die
!
gdb perl 
