#/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";
