Help for this page
my $lower = gen( 97 .. 122 ); my $nums = gen( 48 .. 57 );
#! perl -slw use strict; ... my $nums = gen( 48 .. 57 ); print join'', @{ $lower->() }, '-', @{ $nums->() } for 1 .. 100;
Ceramics Glass Wood Metal Plastic Paper Banana leaves Something else
Results (396 votes), past polls
