Writer exposed adult male stalking posh swinger (8)

I haven't cracked this one yet — but the brilliant team at Fifteensquared have:

Pen(=writer) + (([a]dul[t] + m{ale}) around U(=posh from U/non-U))