#!/usr/bin/perl -T -I/h/COE/lib -w

#- the use of -w generates "Use of uninitialized value in substr" in Coe.pm

use strict;
use Coe;

my $uid = coeExec("/usr/bin/id -u");

chomp($uid);
$uid=cleanString($uid, 0);

print "$uid\n";