18:25:28 [alex : macachu : ~]
[3] $ tty | perl -e 'print /tty/ ? "vt220" : "xterm-color"'
Can't open perl script "-e": Permission denied

18:25:55 [alex : macachu : ~]
[5] $ tty | perl <<EOP
[ Continued ] > print /tty/ ? "vt220" : "xterm-color"
[ Continued ] > EOP
xterm-color18:26:30 [alex : macachu : ~]
[6] $