Select Code to Download

  sub priv {
    print "Privileged\n";
  }

  sub priv {
    print "Unprivileged\n";
  }

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

  > perl main
  Privileged
  Unprivileged
  >