use warnings;
use strict;
my ($thing,$foo,$blah) = (1,2,3);
my $done=0;
while (!$done)
{
	print "What would you like to know? ";
	$_=<>;
	chomp;
	if (/^exit$/)
	{
		$done=1;
	}
	else
	{
		my $result = eval "\$$_";
		if ($@)
		{
			print "bad variable name\n";	
		}
		else
		{
			print "\$$_=$result\n";;
		}
	}
}