&oops('you do not have any items in inventory') unless (open(THEFILE, "$basepath/$inventory/$data.txt"));
	my ($title, $image, $counter, $supplier, $account_num, @inventory) = <THEFILE>;
	close THEFILE;
	chomp($title, $image, $counter, $supplier, $account_num, @inventory);
      	my @supplier = split(/\[\]/,$inventory[$#inventory]);
      	$file =~ s/\.dat//;


##</code><code>##

	my $suppliercount = $#@supplier;    ##WHAT GOES HERE TO GET ME THE COUNT?
	my $inventcount = ($suppliercount + 1);

print "<font face=arial size=2>You currently have $inventcount item in inventory.</font>;