Brian,

Maybe its not the code. You may want to check the permission of the user running the perl script. They (or localsystem) may not have sifficent permissions to remove the DSN.

Hope this helps