($#ARGV != 2) || die("usage: testfs filename size\n");

open(OUT, ">".$ARGV[0]);


$foo[$ARGV[1] - 1] = "X";
for($c1=0; $c1 < ($ARGV[1] - 1); $c1++) {
    $foo[$c1] = "X";
}
print STDOUT "starting write...\n";
print(OUT @foo);
print STDOUT "done\n";
close OUT;