sub priv {
    print "Privileged\n";
  }

##</code><code>##

  sub priv {
    print "Unprivileged\n";
  }

##</code><code>##

  #!/usr/bin/perl
  do "unpriv";
  priv();
  do "priv";
  priv();

##</code><code>##

  > perl main
  Privileged
  Unprivileged
  >