$Pres->SetPresence(TYPE=>"away", StatuS=>"Out for lunch");