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;
www.com | www.net | www.org
No recent polls found