sub marine {
  $n += 1;  # Global variable $n
  print "Hello, sailor number $n!\n";
}
sub printcelsius {
  $degc = ($degf - 32) * (5/9);
  print "$degf degrees fahrenheit is $degc degrees celsius\n";
}
##</code><code>##

#/** \fn int mult (int x, int y)
#\brief Multiply two number.
#\param x Factor 1.
#\param y Factor 2.
#\retval Multiplication
#*/

##</code><code>##

#** \fn int mult (int x, int y)
#brief Multiply two number.
#param x Factor 1.
#param y Factor 2.
#retval Multiplication
#*

##</code><code>##

## \fn int mult (int x, int y)
#brief Multiply two number.
#param x Factor 1.
#param y Factor 2.
#retval Multiplication


##</code><code>##

#/** @method public int mult (int x, int y)
# @brief Multiply two number.
# @param x Factor 1.
# @param y Factor 2.
# @retval Multiplication
#*/