$ cat data.dat | perl script.pl