Perl Best Practices describes some excellent ideas (and also contains some crud, so don't believe everything, just because it's in print ).
- Use lower case for subroutines, methods, variables and labelled arguments.
- Use Mixed-Case for package and class names.
- User UPPERCASE for constants.
But as far as your example is concerned, you hardcode sandbox to 0, then test whether it's 1, which of course it isn't. Maybe some user input would be good. It would be better to find a means to connect which doesn't involve passwords at all. Or if you need one, have it supplied on the command line?
As Occam said: Entia non sunt multiplicanda praeter necessitatem.