use strict;

my $n1= 10;
my $n2= 20;
my $operator= "==";

my $expr = "$n1 $operator $n2";
my $erg = eval $expr;
die if ($@);

if ($erg) {
	print "true\n";
} else {
	print "false\n";
}