sub returns {
  my $buy = $_[0];
  my $now = $_[1];

  # (현재가 - 구입가) / 구입가 * 100 - 세금
  return sprintf("%.3f", ($now - $buy) / $buy * 100 - 0.315);
}