Someone

#!/usr/bin/perl -w

my $n = 300;

print "$n\n";

srand(time());

for (1..$n) {
 print int(rand(10)-5), " ", int(rand(10)-5), " ", int(rand(10)-5), " ", int(rand(10)-5), "\n";
}