$ perl script.pl data.dat