#!/usr/bin/env perl

my $E1 = `${NRGPREFIX} gettotalenergy imp/log`;
my $E0 = `${NRGPREFIX} gettotalenergy ref/log`;
my $Eimp = $E1-$E0;

print "Impurity binding energy: $Eimp\n";

