use warnings;
use strict;

our $x;
eval ('
       $x=1;
       print $x;
     '); 
#Generates a warning that $x is only used once.. Incorrectly.

# {my $work_around=$x} # Uncomment to make the error go away.