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

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