to be root with perl