Select Code to Download

#!/usr/bin/env perl

...
for($_=Wrapper->new(sub{print "hello\n"}, 1..10);my $_2=$_->next;){
        print "got=$_2\n";
}