package Foo; sub foo { print join(':', caller()); }; 1; Foo::foo();
# Foo:caller:1

# This is perl, v5.8.8 built for i686-linux