_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

Full disclosure: FindBin is broken (RE: How do I get the full path to the script executing?)

To find the full path, I'd use File::Spec along with $0 or __FILE__ (which often already hold a full path).

        - tye (but my friends call me "Tye")

Thanks for the correction.

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;