my $strFraction = eval "1/2";

print "strFraction is actually $strFraction <br>";

##</code><code>##

my $strFraction = eval qq|print "this could have been `rm *` - bye bye files!\n"|;

print "strFraction is actually $strFraction <br>";

##</code><code>##

this could have been `rm *` - bye bye files!
strFraction is actually 1 <br>