Select Code to Download

sub stack_depth() {
  my $depth = 1;
  $depth++ while defined caller($depth);
  --$depth;
}

#!/usr/bin/perl -wl
use strict;
...
1
2
3