1 #!/usr/bin/perl -w
 2 # File: simple_random.pl
 3 # Author: Tom Large - tlarge@thelug.org
 4 # Location: http://www.thelug.org/docs/
 5 # Description: Generates a pseudo random number.
 6 
 7 $again = "y";
 8 
 9 while ($again =~ /^y/i)
10   {
11   print "Rolling the dice...\n";
12   
13   $score1 = int( rand(18)) + 1;
14   $score2 = int( rand(18)) + 1;
15   $score3 = int( rand(18)) + 1;
16   $score4 = int( rand(18)) + 1;
17   $score5 = int( rand(18)) + 1;
18   $score6 = int( rand(18)) + 1;
19   $score7 = int( rand(18)) + 1;
20   
21   print "The scores are:\n";
22   print "$score1\n";
23   print "$score2\n";
24   print "$score3\n";
25   print "$score4\n";
26   print "$score5\n";
27   print "$score6\n";
28   print "$score7\n";
29   print "\n";
30   print "\nWould you like to roll again? (y/n): ";
31   $again = <STDIN>;
32   chomp $again;
33   }
syntax highlighted by Code2HTML, v. 0.9.1