#!/usr/bin/perl

use strict;
use warnings;
use Thread::Stack;

my $s = new Thread::Stack;
$s->push(qw(thr1 thr2 thr3 thr4 thr5));
print my $size = $s->size, "\n";
$s->pop("thr1");
print $size = $s->size, "\n";