#! /usr/bin/perl
use strict;
use Parse::RecDescent;
my $grammar = do "grammar" || die "No grammar";
local $Parse::RecDescent::skip = "";
Parse::RecDescent->Precompile($grammar, "Petal::CodePerl::Parser");
print "hit enter to install ...";
<>;
rename("Parser.pm", "lib/Petal/CodePerl/Parser.pm") || die "Couldn't rename, $!";