#!/usr/bin/env perl

use strict;
use warnings;

use Tie::STDOUT

print => sub {
	my @params = @_;
	my @calhis = ();
	my $i = 2; # to avoid printing stacktrace for Tie::STDOUT
	# build a kind of stacktrace:
        while(
		my ($package, $filename, $line, $subroutine, $hasargs,
		    $wantarray, $evaltext, $is_require, $hints, $bitmask,
		$hinthash) = caller($i++)
	){
		push(@calhis, "$filename, line $line : $package".'::'."$subroutine");
	}
            # print the stacktrace with whatever needs to be printed
            print join("->", @calhis), " : ", @_;
        }
;

print "from main\n";

sub1("main");
sub2("main");

sub	sub1 {
	my $via = $_[0];
	print "from sub1 via $via\n";
}
sub	sub2 {
	sub1("sub2");
}