#!/usr/athena/bin/perl

@toppings = (
	'Pepperoni',
	'Ground Beef',
	'Mushroom',
	'Sausage',
	'Ham',
	'Onion',
	'Anchovies',
	'Green Peppers',
	'Green Olives',
	'Double Cheese',
	'Black Olives',
	'Pineapple',
	'Spinach',
	'Eggplant',
	'Tomato',
	'Broccoli',
	'Garlic',
	'Prosciutto',
	'Canadian Bacon',
	'Hot Pepper',
	'Bacon',
	);

srand time() ^ $$;
&RandPick;
&RandPick;

sub RandPick {
    $r = rand $#toppings;
    print $toppings[$r], "\n";
}