SUID and getting the basename

[Steve Main]

Hello list,

I have a script that will run with the SUID bit set.  This of course has
generated a bunch of problems.  As I have been working through them I have
come across one that I just can't seem to figure out.

I want to get this ( or some equivalent) to work:

$oraProgName   = `/usr/bin/basename $0`;

this command gives me "Insecure dependency in `` while running setuid at"
yada yada yada

does anyone have a way to make this work?

thanks for your help

Steve