Help for this page

Select Code to Download

Select or download this
```
#!/usr/bin/perl

...
}

print "\n";
```

Select or download this

sub iterator {
   my $box = shift;
...
      return $return_element;
   }
}