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