my $bad_idea1 = '$var1';
my $bad_idea2 = '$var2';

my $var1 = 3;
my $var2 = 4;

my $equation = "$bad_idea1 + $bad_idea2";
print "$equation\n";
print eval $equation;

##</code><code>##

my $bad_idea1 = '$var1';
my $bad_idea2 = '$var2';

my $var1 = 3;
my $var2 = 0;

my $equation = "$bad_idea1 / $bad_idea2";
print "$equation\n";
my $result = eval $equation;
if ( $@ ) {
	print $@;
} else {
	print $result;
}