#sum.pl

sub sum{
 my($a,$b)=@_;
 my $res=$a+$b;
 return $res;
}
1;

##</code><code>##

 require "sum.pl";
 $num1=5;
 $num2=10;
 $result=&sub($num1,$num2);
 print "$result";