#!/usr/bin/perl
use strict;
use warnings;

our $f;
eval '$f = 10;';
print "f is $f\n";