in reply to Re^4: How to read the file from stdin using perl?in thread How to read the file from stdin using perl?
But you need to do some work yourself
Give a man a fish: <%-{-{-{-<