Help for this page

Select Code to Download


  1. or download this
    calling();
    
  2. or download this
    #works fine
    sub addem{
    ...
            print join(':',caller);     
            ($package, $filename, $line)=caller; 
            }