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