27 ));

    27 ));

    28 

    28 

    29 if ($help or !$outputfile)

    29 if ($help or !$outputfile)

    30 {

    30 {

    31 	print "Usage: perl generate_diamonds_tags_xml.pl --tags COMMA_SEPARATED_TAG_LIST --output OUTPUT_FILE\n";

    31 	print "Usage: perl generate_diamonds_tags_xml.pl --tags COMMA_SEPARATED_TAG_LIST --output OUTPUT_FILE\n";

    32 }

    33 }

    33 

    34 

    34 open(FILE, ">$outputfile");

    35 open(FILE, ">$outputfile");

    35 

    36 

    36 print FILE <<_END_HEADER;

    37 print FILE <<_END_HEADER;