Perl stack sample