#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More tests => 1;

my $x = 7;
my $y = 5;
my $z;

my $formula = '$z = $x + $y';
eval $formula;
is ($z, 12)