do {
    print STDOUT "\nPlease select the catergory of results that you wi
+sh to see;\n\n\t1. tv \n\t2. computers \n\t3. exercise \n\t4. food\n\
+n";

    chomp ($choice = <STDIN>);

    #
    # your code goes here
    #

} while ($choice)
[download]

~~rob
____________________________________________________________
eval pack "h*", "072796e647022245d445f475454494c5e622b3";