#!/usr/bin/perl -w
use strict;
use Calc;
my $parser = Calc->new();
$parser->input(<<'EOI'
a = 2*3 # 1: 6
d = 5/(a-6) # 2: division by zero
b = (a+1)/7 # 3: 1
c=a*3+4)-5 # 4: syntax error
a = a+1 # 5: 7
EOI
);
my $t = $parser->Run();
print "========= Symbol Table ==============\n";
print "$_ = $t->{$_}\n" for sort keys %$t;