Select Code to Download

open (FILE, "<$item") or nonexist();
@file = <FILE>;
close (FILE);

into_table($file[2], $file[0], $file[3], $file[9]);

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