Help for this page

Select Code to Download

Select or download this

# in Equipment.pm
###############
...
  }
  return;
}

Select or download this

perl -e 'use Equipment;@a=(5,1,6,4);foreach (@a) { Equipment::read_eq(
+$_); }'