the-calling-subroutine-name
main, directory/program.pl,line,main::the-calling-subroutine-name

##</code><code>##

#works fine
sub addem{
        ($value1, $value2)=@_;
        $value1+$value2;
        print join(':',caller);     
#       ($package, $filename, $line)=caller; 
        }

##</code><code>##

#notice disablement of the blocks in the callingfun() makes it work
sub addem{
        ($value1,$value2)=@_;
        $value1+$value2;
        print join(',',caller);
        }
#sub callingfun{
       $result = addem(2,2);
#       }