#!/usr/bin/perl use strict; return { # secure addresses for patient info: 'catherine.norton.secure' => 'catherine.norton@nhs.net', 'chest.clinic.secure' => 'catherine.mullarkey@nhs.net', 'val.emery.secure' => 'val.emery@leedsth.nhs.uk', 'sharon.heathcote.secure' => 'sharonheathcote@nhs.net', 'sarah.bagguley.secure' => 's.bagguley@nhs.net', 'vinnette.sinclair.secure' => 'v.sinclair@nhs.net', 'lynda.blythe.secure' => 'lynda.blythe@nhs.net', 'david.blythe.secure' => 'david.blythe@nhs.net', 'paul.evans.secure' => 'paulevans@nhs.net', 'andy.rawstron.secure' => 'andy.rawstron@nhs.net', 'sue.morgan.secure' => 'suemorgan@nhs.net', 'peter.hillmen.secure' => 'peter.hillmen@nhs.net', 'raj.secure' => 'ra.jones@nhs.net', # local addresses, or addresses for non-sensitive info: 'stephen.potts' => 'stephen.potts@leedsth.nhs.uk', 'terrence.haines' => 'terrence.haines@leedsth.nhs.uk', 'david.beale' => 'david.beale@leedsth.nhs.uk', 'katie.wheatley' => 'katie.wheatley@leedsth.nhs.uk', 'tim.branch' => 'tim.branch@leedsth.nhs.uk', 'raj' => 'ra.jones@hmds.org.uk', };