perl -MSys::Info -wle "my$o=Sys::Info->new->os;print for$o->cdkey,$o->cdkey(office=>1)"