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