Help for this page
#! perl -slw use strict; ... print $iterator->(); __END__
C:\test>test Pushing : 'test0a' ... Pushing : 'test3a' Pushing : 'test3b' Pushing : 'test3c'