sub adding ($$)
{ my $first=shift;
  my $second=shift;

  my $third=($first + $second);

  print("$first + $second = $third\n");
}

sub adding ($$$)
{ my $first=shift;
  my $second=shift;
  my $third=shift;

  print("$first + $second = $third\n");
}

1;

##</code><code>##

#!/usr/bin/perl

use strict;
require "func.pl";

my $one = 1;
my $two = 2;
my $answer = ( $one + $two);

adding($one,$two);

##</code><code>##

#!/usr/bin/perl

use strict;
require "func.pl";

my $one = 1;
my $two = 2;
my $answer = ( $one + $two);

adding($one,$two,$answer);