#!/usr/bin/perl -w
use strict;

my ($num1,$num2);
$num1=2;
$num2=sum($num1,$num1);
print "$num2\n";

# Sum: returns the sum of all arguments.
sub sum {
     my $ret;
     $ret=0;
     for(@_){$ret+=$_}
     return $ret;
}