Select Code to Download

&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>;
...
          my @supplier = split(/\[\]/,$inventory[$#inventory]);
          $file =~ s/\.dat//;

    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>;