#!/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";