Help for this page

Select Code to Download

Select or download this

sub mail {
  my ($uid) = @_;                  #  <-- assign argument
  print "uid in sub=$uid\n";
}