See $File::Find::name, which holds the full name of the file starting with the directory your search started from.