sub makeList {
	print "<ul>\n";
	foreach $item (@_) {
		print "<li>$item</li>\n";
	}
	print "</ul>\n";
}



&makeList("apples" , "oranges");

print "\n\n";

&makeList("apples" , "oranges" , "bananas");

print "\n\n";

&makeList(1,2,3,4,5,6,7,8,9,10,11,12,13,14);