Write script for byterock, ref: http://blogs.perl.org/users/byterock/2014/04/i-sysadmin.html