#/usr/bin/perl

use strict;
use warnings;

test();

sub test {
    my @caller_info = caller();
    print "test caller 0: @caller_info\n"; # siehe auch perldoc -f caller
    test2();
}

sub test2 {
    my @caller_info = caller();
    print "test caller 0: @caller_info\n";
    my @caller_info_1 = caller(1);
    print "test caller 1: @caller_info_1\n";
}