# ---------------------
# dyninterp.pl
#!/usr/bin/perl -l 
use DynInterp;
$x = new DynInterp('the value of $y is ', \$y, '.'); 
$z = new DynInterp('the value of $y is ', \@y, '.'); 
$y=5;
print $x; 
$y=8; 
print $x;
@y = qw(a b c d);
print $z;
$"=',';
print $z;
$"='.';
print $z;