my $value;
   eval {
       # Do stuff;
       $value = 4;
   };