open (FILE, "<$item" ) or die "Not opening file: $!";
while (<FILE>) {
($uname, $categ, $title, $locat, $desc, $ship, $paym, $pic,
$price, $itnum)=split /\t::\t/;