Select Code to Download

sub adding ($$)
{ my $first=shift;
...
}

1;

#!/usr/bin/perl

...
my $answer = ( $one + $two);

adding($one,$two);

#!/usr/bin/perl

...
my $answer = ( $one + $two);

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