From your earlier posts I guess you are using Sybase. "Programming the Perl DBI" suggests when using stored procedures you need to use

$sth->prepare("exec my_proc '$foo'"); # single quotes added
[download]

I would see if this works

$sth->prepare("exec my_proc 'D_CHRIS'");
[download]

poj