sub some()
{
print "Enter a number: \n";
chomp (my $num1 = <STDIN>);

my $num2 = 2;
my $result;

$result = $num1+$num2;

print "result is: $result";
#return result;
}