--- /dev/null
+#!/usr/bin/perl -w
+# Ian Beckwith <ianb@erislabs.net>
+#
+
+use strict;
+use vars qw($me);
+$me=($0=~/(?:.*\/)?(.*)/)[0];
+
+my $verbose=0;
+my $doneargs=0;
+my $donesomething=0;
+
+while($_=shift)
+{
+ if(/^-/ && !$doneargs)
+ {
+ if (/-v/) { $verbose=1; }
+ elsif(/-q/) { $verbose=0; }
+ elsif(/--/) { $doneargs=1; }
+ elsif(/-h/) { usage(); }
+ else { usage(); }
+ next;
+ }
+ $donesomething=1;
+ my $file=$_;
+}
+
+unless($donesomething)
+{
+ usage();
+}
+
+
+sub usage
+{
+ die("Usage: $me [-v] [-q] [-h] [--] file...\n".
+ " -v\tVerbose\n".
+ " -q\tQuiet (default)\n".
+ " -h\tThis help\n".
+ " --\tEnd of options\n");
+}
+
+__END__
+
+
+=head1 NAME
+
+program - description
+
+=head1 SYNOPSIS
+
+B<> [I<-v>] [I<-q>] [I<-h>] [I<file>...]
+
+=head1 DESCRIPTION
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-v>
+
+Enable verbose operation.
+
+=item B<-q>
+
+Quiet (no output). This is the default.
+
+=item B<-h>
+
+Show a short help message.
+
+=item B<-->
+
+End of options.
+
+=back
+
+=head1 FILES
+
+=head1 ENVIRONMENT
+
+=head1 DIAGNOSTICS
+
+=head1 BUGS
+
+None known. Please report any found to ianb@erislabs.net
+
+=head1 SEE ALSO
+
+=head1 AUTHOR
+
+Ian Beckwith <ianb@erislabs.net>
+
+=head1 AVAILABILITY
+
+The latest version can be found at:
+
+B<http://erislabs.net/ianb/projects//>
+
+=head1 COPYRIGHT
+
+Copyright 2008 Ian Beckwith <ianb@erislabs.net>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or (at
+your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+=cut
--- /dev/null
+#!/usr/bin/perl -w
+# Ian Beckwith <ianb@erislabs.net>
+#
+
+use strict;
+use vars qw($me);
+$me=($0=~/(?:.*\/)?(.*)/)[0];
+
+my $verbose=0;
+my $doneargs=0;
+my $donesomething=0;
+
+while($_=shift)
+{
+ if(/^-/ && !$doneargs)
+ {
+ if (/-v/) { $verbose=1; }
+ elsif(/-q/) { $verbose=0; }
+ elsif(/--/) { $doneargs=1; }
+ elsif(/-h/) { usage(); }
+ else { usage(); }
+ next;
+ }
+ $donesomething=1;
+ my $file=$_;
+}
+
+unless($donesomething)
+{
+ usage();
+}
+
+
+sub usage
+{
+ die("Usage: $me [-v] [-q] [-h] [--] file...\n".
+ " -v\tVerbose\n".
+ " -q\tQuiet (default)\n".
+ " -h\tThis help\n".
+ " --\tEnd of options\n");
+}
+
+__END__
+
+
+=head1 NAME
+
+program - description
+
+=head1 SYNOPSIS
+
+B<> [I<-v>] [I<-q>] [I<-h>] [I<file>...]
+
+=head1 DESCRIPTION
+
+=head1 OPTIONS
+
+=over 4
+
+=item B<-v>
+
+Enable verbose operation.
+
+=item B<-q>
+
+Quiet (no output). This is the default.
+
+=item B<-h>
+
+Show a short help message.
+
+=item B<-->
+
+End of options.
+
+=back
+
+=head1 FILES
+
+=head1 ENVIRONMENT
+
+=head1 DIAGNOSTICS
+
+=head1 BUGS
+
+None known. Please report any found to ianb@erislabs.net
+
+=head1 SEE ALSO
+
+=head1 AUTHOR
+
+Ian Beckwith <ianb@erislabs.net>
+
+=head1 AVAILABILITY
+
+The latest version can be found at:
+
+B<http://erislabs.net/ianb/projects//>
+
+=head1 COPYRIGHT
+
+Copyright 2008 Ian Beckwith <ianb@erislabs.net>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or (at
+your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+
+=cut