#!/usr/bin/perl -wTl
# Procedural Perl Stack example
# 20021004, altblue@n0i.net
######################################
use strict;
my @s;
*Init  = sub { @s = @_          };
*Push  = sub { push @s, @_      };
*Pop   = sub { pop @s           };
*Size  = sub { return scalar @s };
*Empty = sub { @s = ()          };

Init(2..4), print Size();
Push(6),    print Size();
Pop(),      print Size();
Empty(),    print Size();