Fixing perl scripts to check for root.