#!/usr/local/bin/perl -w

use strict;

{
   my $addy = "2 + 2";

   print "Adding $addy = ", eval ($addy), "\n";
}