$ ./perl -le 'print *FOO{NAME}'
FOO
$