perl -lne "warn -t STDIN"
 perl -lne "warn -t STDIN" < file
echo |  perl -lne "warn -t STDIN"