how to call subroutine?

[bobodm]

I need help, i am new in Perl if you can help me i have a question:

I want to know how to Random generate 5 number in (num1) outside of subroutine (some) Then 5 times calls the subroutine and then displayed the results.

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;
}

 

[audiopro]

Do you want to generate 5 random numbers or have the user enter 5 separate numbers?


Keith

http://www.studiosoft.co.uk