I've seen you use $0=~/^(.+[\\\/])[^\\\/]+$/; a couple of times now. Please use File::Basename, or File::Spec because they are portable solutions. BTW, I prefer __FILE__ ;)

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.