Perl Code to Automatically Generate Test Vectors