Help for this page

Select Code to Download

Select or download this

my $number = rand;
some($number);
...
  my $num1 = shift;
  print "$num1\n";
}