in reply to Full path to the current file?
use File::Basename; print "$INC{'File/Basename.pm'}\n"; [download]