Select Code to Download

sub read_quotes {
        open (QUOTES, "< $basedir$quotefile") || die "No quotes file!"
+;
...
        }
        close QUOTES;
}

for ($i = $min; $i <= $max; $i++) {
   print $quotes[$i];
}

script starts
   if no arguements
...
        parse user entry and concatonate
         to end of guestbook file
script ends