Help for this page

Select Code to Download

Select or download this
```
calling();
```

Select or download this

#works fine
sub addem{
...
        print join(':',caller);     
        ($package, $filename, $line)=caller; 
        }