--- a/parser	Fri Nov 27 23:12:08 2009 +0100
+++ b/parser	Fri Nov 27 23:12:41 2009 +0100
@@ -3,8 +3,10 @@
 use strict;
 use Parse::RecDescent;
 use Data::Dumper;
+use Storable;
 
 my $grammar_file = shift;
+my $storable = shift; # optional
 unless (defined $grammar_file) {
 	print "Usage: $0 grammar_file\n";
 	exit 1;
@@ -37,7 +39,5 @@
 
 $::res = {};
 my $p_res = $parser->file($content);
-
-#print Dumper $p_res;
-
+store($::res, $storable) if (defined $storable && length($storable) > 0);
 print Dumper $::res;