+
+sub usage($) {
+ my $ret;
+ print "USAGE: $progname [--root=part/to/cut] [--path=where/to/search NOT WORKING] [--outdir=where/to/generate/files] infile [infile+]\n";
+ exit $ret;
+}
+
+my $path=undef;
+my $outdir=undef;
+my $root;
+my $help;
+
+Getopt::Long::config('permute','no_getopt_compat', 'no_auto_abbrev');
+GetOptions(
+ 'help|h' => sub {usage(0)},
+ 'root=s' =>\$root,
+ 'path=s' =>\$path,
+ 'outdir=s' =>\$outdir) or usage(1);
+
+usage(1) if (scalar @ARGV == 0);