Code:
on *:INPUT:*: {
  msg $active $upper($left($1-,1)) $+ $mid($1-,2,$len($1-)) $+ .
  halt
}