exodist · July 28, 2015 21:19
diff --git a/gistfile1.txt b/gistfile1.txt
 use strict;
 use warnings;

 sub do_it {
    my $x = 1;
    $x++ while caller($x);
    print "Doin' it (Depth: $x)\n";
    eval "END { do_it; exit }; 1 "|| die $@; 
 }

 do_it();

 exit;
	use strict;
	use warnings;

	sub do_it {
	my $x = 1;
	$x++ while caller($x);
	print "Doin' it (Depth: $x)\n";
	eval "END { do_it; exit }; 1 "\|\| die $@;
	}

	do_it();

	exit;