I would assume you could use $INC{$0} or such from within the script. Methods in File::Spec might be of assist.