#!/usr/bin/perl -wT
use strict;

my $c;
my $code = '$global = 10; $c = 6';
eval $code;
die $@ if $@;
print "\$c = $c\n";

__END__

=head1 OUTPUT with strict
Global symbol "$global" requires explicit package name at (eval 1) line 1.

=head2 OUTPUT w/o strict
$c = 6