test_pre.pl:
use strict;

open(DATA, ">", "test.dat");
foreach (1..$ARGV[0]) {
    print DATA "$_\n";
}
close(DATA);