Solaris 10
#!/bin/sh
/usr/bin/truss /usr/bin/date 2>&1 | nawk -F= '/^time()/ {gsub(/ /,"",$2);print $2}'
exit $?
Solaris 9 and below
/usr/bin/perl -e 'printf "%dn", time;'
#!/bin/sh
/usr/bin/truss /usr/bin/date 2>&1 | nawk -F= '/^time()/ {gsub(/ /,"",$2);print $2}'
exit $?
/usr/bin/perl -e 'printf "%dn", time;'