X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/9b1ee55eb24347c0bbd567b17852a16f68803172..5f038fb3e000dfac421901388bbe977b23803acb:/graphplay

diff --git a/graphplay b/graphplay
index 9956168..bbbbc28 100755
--- a/graphplay
+++ b/graphplay
@@ -2,10 +2,17 @@
 use strict;
 use warnings;
 
+use Getopt::Long 2.33 qw(HelpMessage :config bundling);
 use Template;
 use List::Util;
 use Data::Dumper;
 
+our $VERSION = '1.00';
+
+GetOptions(
+	"verbose|v!" => \our $DEBUG,
+) or HelpMessage(-exitval => 2);
+
 my %area = (
 	fieldxmin => 45,
 	fieldxmax => 1590,