perl split_records.pl inputfile 10