#!/usr/bin/perl



$fsize = -s $ARGV[0];



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



for (0..$fsize / 100) {



	seek(COR, rand($fsize), 0);

	print COR chr(rand(256));

};



close(COR);