Article Figure 1 Listing 1 Listing 2 Listing 3
Listing 4 Listing 5 Listing 6 Listing 7 feb2006.tar

Listing 4 Rand.pl

#/usr/bin/perl -w
#
# Listing 4.
# Rand.pl
# 
#Create a random 5 digit number
#From 10000 to 99999

$random = int( rand(89999)) + 10000;
print "$random\n";