Update:

Got it working by compiling DBD::Sybase from source.

Had to make the addition below to the dbdimp.h:

#ifndef strncasecmp
#define strncasecmp strnicmp
#endif
[download]

---

game(Wookie,opponent) eq 'Wookie' ? undef $problem : remove_limbs(arms,opponent);