Select Code to Download

#! perl -slw
use strict;
...

print $iterator->();
__END__

C:\test>test
Pushing : 'test0a'
...
Pushing : 'test3a'
Pushing : 'test3b'
Pushing : 'test3c'