Added the slower Perl version of generator