#!/usr/bin/suidperl
# $Id: clocksync,v 1.2 1997/04/01 10:40:48 czyborra Exp $
print localtime(time)."\n";
$< = $>; # setuid
system "/sbin/clock","-u","-s";
print localtime(time)."\n";