sub stock_close {
  close(STOCK) || die "Error Closing Stock File:  $!\n";
}