perl -MX11::GUITest=:ALL -E'SendKeys(q{&(e)}) or say "FAILED"' 
€    

##</code><code>##

perl -MX11::GUITest=:ALL -E'SendKeys(q({CAP " a})) or say "FAILED"'
FAILED