I'd also suggest looking at your bind. The '#testsen' part might be what's causing your problem. You might want to enclose it in single quotes so perl doesn't try to read it as a comment.
Just some food for thought.
Theodore Charles III
Network Administrator
Los Angeles Senior High
email->secon_kun@hotmail.com perl -e "map{print++$_}split//,Mdbnr;"