Pipe into perl script