BEGIN {

   cmd = "tr '[A-Z]' '[a-z]' 2> /dev/null"

   PROCINFO[cmd, "pty"] = 1

   input = "ABCD"

   print input |& cmd

   cmd |& getline x

   print x

#   close(cmd)

}