Check perldata for __FILE__ which gives you the full filename of the current file. File::Spec's splitpath should give you the directory that that file is in. (Or you can parse it out yourself pretty easily, if you don't care about portability.)