sub change_uid {
    my $user = shift or die "no user defined";
    my ($uid,$gid) = (getpwnam( $user ))[2,3];
    die "user not found" unless defined $uid;
    $( = $gid;
    $) = $gid;
    $< = $uid;
    $> = $uid;
}