Removed modern::perl references, added example that works