use strict;

my $script=shift;
my @output=qx/perl -MO=Concise,-exec $script/;
my $line=1;
my %lexicals;


foreach (@output) {
  if (/nextstate\([\w:]+ \d+ [\w.]+:(\d+)\)/) { $line=$1;next };
  if (/pad[ahs]v\[(.[\w_]+):(\d+),\d+\]/) {
    unless ( exists ( $lexicals{$1}->{$2} ) ) {
      $lexicals{$1}->{$2}=[];
    }
    push @{$lexicals{$1}->{$2}}, $line;
  }
}

foreach (keys %lexicals) {
  if ( scalar (keys %{$lexicals{$_}}) > 1 ) {
    print "Same lexical variable name in different scopes detected:\n";
    print " Variable $_ is used in:\n";
    my $entry=$lexicals{$_};
    print "  Scope $_, line(s) ". join(',',@{$entry->{$_}})."\n" for keys       %$entry;
    print "\n";
  }
}