Select Code to Download

#!/usr/bin/perl
use strict;
...
  # never prints the value of $uid ? ?
  print "uid in sub=$uid\n";
}