in reply to fileparse(): need a valid pathname

See $0 and __FILE__, File::FindLib , FindBin

In Section Seekers of Perl Wisdom