#!/usr/bin/perl
use warnings;
use strict;
print STDERR "TRACE{real uid $< ", scalar(getpwuid($<)), ", effective uid $> ", scalar(getpwuid($>)), '} ';
exec '/home/ed/bin/ci.real', @ARGV;