#!/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 : $firstnew $secondnew\n";