parse-debug

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Carp;
   5 use Data::Dumper;
   6
   7 BEGIN { unshift @INC, qw(.); }
   8
   9 use Parse;
  10
  11 die if @ARGV;
  12
  13 parse_input_graph();
  14
  15 print Dumper(\%region);