package X;
use strict;
sub one { 1 }

package Y;
$yy = 1;

package main;
exit;

__DATA__
Global symbol "$yy" requires explicit package name at x line 6.
Execution of x aborted due to compilation errors.