X-Git-Url: http://git.shiar.nl/gitweb.cgi/perl/schtarr.git/blobdiff_plain/9b6efb5f25ff032a46a2f6bc9b4f3501c9d7b47c..d4581a2bec64edc2357aef32345819ee2917b279:/graphplay?ds=sidebyside

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,