# this works as a bash include
#
#COMM Math::Plot2D, method Interpolate()
#
perl -e '
  use lib shift();  # give include precedence to code directory, perl -I would not work!
  use Math::Plot2D;
  $d=Math::Plot2D->new([[1,1.2],[2,2.2],[3,3.2]]);
  foreach (0.5, 1, 1.5, 2.5, 3, 3.5) {
    my $r=$d->Interpolate($_);
    my $v=defined($r)? $r : "undef";
    print $v,qq(\n);
  }
  ' -- "$dircode"
