sub multiply( $$ )
{
   my ($a, $b) = @_;
   return $a * $b;
}