New script for generating grading file

grades/gen_grading.pl

@@ -0,0 +1,24 @@
+#! /usr/bin/env perl
+
+use v5.10.1;
+use strict;
+use warnings;
+use Getopt::Long;
+use Pod::Usage;
+
+use lib "..";
+use ACU::Grading;
+use ACU::Trace;
+
+do {
+    my $xmltrace;
+    open $xmltrace, "<", shift or die $!;
+    binmode $xmltrace;
+    my $trace = Trace->new($xmltrace);
+    close $xmltrace unless $xmltrace eq *STDIN;
+
+    my $grade = Grading->new();
+    $grade->create_from_trace("rendu_1", "rendu-1", $trace);
+
+    say $grade->to_string();
+} while ($#ARGV >= 0);