A Perl script that creates fake data.