Need awk print sub

[ToddAndMargo]

Hi All,

How do I do this with a perl one liner?

$ echo "a b c d" | awk '{print $2}'
b

Many thanks,
-T