EVERYTHING WORKING (unlinked)
perl workin smooth