perl script to get atys time