If there are no rows returned, the sub you have never does a return at all. Instead, it goes on to call $sth->finish() and $db->disconnect() (both of which are unnecessary) and finally exit, which is what terminates the program. If you want to print or do anything after calling connectCBMS, change exit(0) to return.

Note also:

• Your code is not consistently indented. This makes it harder to read.
• There isn't any point in wrapping fetchrow_array in a while loop. The loop ends on the first iteration because of the return.
• my ($staffcode) = @_; would be much better placed at the very top of the sub.
• It's a good idea to use warnings.
• It's also a good idea to use strict, but your code will require some more adjustments to work that way.

I hope this helps.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.