Experimental implementation of get_code_location

Just in the pure-perl code for now; this function returns
the file and starting line of the coderef that is passed
to it.