Name Game in Perl : Enjoy.
#!/usr/bin/perl
#
#
# Perlmonks stagenames
# feel free to add your own to the arrays
srand;
@first = qw ( King Maximum Duke Cardinal Mister Miss
Rocco Rico Lord Captain Major Don);
@second = qw ( Slick Whiplash Leather Dong Contraption
Thunder Lightning Viagra Thong );
print "Please enter your name : \n";
chomp($name = <STDIN>);
$firstnew = $first[rand @first];
$secondnew = $second [rand @second];
print "$name, Your new \"Perlmonks Also Known As\" shall be : $firstne
+w $secondnew\n";
azatoth
